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I NTRODUCTION 

Tht pHxjgnam p/iaAewted keAt o/ie Aet out ion. the. AMcLivtckuxZ wfio fwL& a &ptcA,i-Lc 
need -m moid. Because a detJouZcd dl&cn66-Lon o^ the^t pKognam iOouZd ^zqiuASL a 
text ievnAaZ timeA the. pKti>ent 4>lze. o^ tkl6 Libmcviy it hoA been onUXttd. tndl- 
vlduaJU tjoko have a 6pe.cJ.^ic KaquixmoMt mJU. have to be at le/ut fenot«£e%ea6£e 
4M the. oAejB. the pHjogfum l& vofutten about; lei StatUttcjol pwgnam neqiuM. the 
uAtfL to be iamltioA. mtk the te/m& meow, medtan, etc. TkU l& becmi&e the pno- 
gMm a/te M/Utten In the veAnacuZoA o^ theJji iabject matteA. With thu> \movi- 
tedge atone, no p/wg/ummujig expeAlence on the pant o^ the u&en. l& fiequAA&d tn 
oAd&n. to u&e any oi the^e pfvognam in mo&t &y&tejn&. Once it ij> det&Ammed that 
a poAtlcuZoA p/wgmm miy be a&e.^at the u&en. meAeZy typej> in a copy ojj the MSIC 
AouAce code exactly a6 it appe/vu in the p/Log/tam ti&ting. Then ioUxm the in- 
^tfuictlon& {iOfi mmning the pfvogfum om pn.e/^ented in the In&tAuctlon poHtion o^ 
the mtte up, inmediateZy pfiecedcng the pnog/um. At&o Included in the imite up& 
oAe Atatemente, that appeoA in the 6ouAte code which tmy po&&ibly need to be 
changed to Aun in the u6eA'6 computeA hy&tm; ie: MtD &tatement£> miy have to bt 
changed to FRAW? iM oHden. to cximpile in ceAtain 6y4>tem. 



PUBLISHERS NOTE: Appendix B included at the end of Volume V was not 
mentioned in the preface by the author. We feel this appendix is 
the most important single item included in this library. We see 
this appendix as a fore runner that might lead the way toward 
standardizing a computer language among the manufacturers. This is 
in addition to the obvious benefits to all users of this Basic 
Software Library. 
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Business & Personal Bookkeeping Programs 

DESCRIPTION 

Computes price and interest for bond purchases. 

Analyzes the cost of building design proposals. 

Computes effective compound interest rates. 

Determines seasonal coefficients for two cycles. 

Makes a lease/buy decision for you. 

Makes a decision on whether to buy a component or make it. 

Calculates depreciation by k different methods. 

Cal. the most efficient assignment of resources and/or personnel 

Predicts your yearly cash flow. 

Performs monthly installment accounting. 

Computes interest accruals, monthly. 

Computes annual rates of return on investments. 

Makes a comparison of mortgage terms. 

Optimizes the layout for a plant, shop, office, etc. 

Determines your economic order quantity for Inventory items. 

Performs an analysis of a pert network. 

Computes true annual interest rates. 

Computes lessor's rate of return for uncertain assets. 

Computes a lessor's rate of return after taxes. 

Schedules N jobs in a shop with M machines. 
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Teach the computer all about animals. 

Land your spaceship on another planet. 

Advanced number game, numbers may be algebraic, few clues. 

Calculate your Bio-Life Cycle and plan your days. 

An advanced war game with big guns. 

Plays a regulation game of checkers. 

A dice game with hard way odds. 

Air fight w/missiles; betweeen a phantom and a mig. 

Plays any number of holes; inc. obstacle course. 

Have a rap session with Judy via your computer. 

Simple number game, all you have to do Is unscramble them. 

Authentic horse race, any number of players. 

Gamblers delight, plays Las Vegas rules. 

Sky dive on another planet 

A war game between two tanks. 

Teach the computer to learn new things. 
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Introduction 

He's absolutely MAD! MADI MAD! 

Our 35th. president. 

Loveable "Peanuts" characters w/blanket. 

A modern miss to put a twinkle In your eye. 

Former "United States" president. 

Christmas or anytime this Is a beautiful creation. 

A true work of art for anyone's gallery. 

A message for all seasons. 

True and blue, he's the law. 

In banner form, perfect for decorating the mantle. 

That paragon of Dogdom even plays football. 

A picture you can read as well as see. 
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DESCRIPTION 
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Calc. Long, and Lat. from Interstellar fix or distance. 

Simulates a language compiler. 

Calc. the max. 6 min. values of funct. over a spec, interval. 
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Calculates Blackbody energies, w/fllter look-up tables. 

Calculates Sun and Moon positions, hourly. 

Calculates Pcwer Spectral Densities and FFT's. 
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Calculates binomial probability distributions- 
Applies the Chl-Square test to samples. 

Calc. coefficients of fourler series to apprx. a function. 
Calculates confidence limits on linear regressions. 
Calculates confidence limits for a sample mean. 
Performs auto and cross correlations with plots. 
Fits 6 different curves by the least squares method. 
Calculates difference of means in non-equal variances. 
Plots two functions on the same sheet. 
Calculates exponential distributions for a sample. 
Performs least squares fit by linear, exp. , or power function. 
Compares 2 groups of data using the rank test. 
Plots 6 equations on the same sheet. 
Plots data points on standard teletypes. 
Performs least squares polynomial fit. 

Performs multiple linear fit with or without transformations. 
Finds the mean, variance and standard deviation. 
Computes various stat. measures for a variable. 
Calculates normal and T-dlstributions. 
Compares 2 groups of unpaired data. 
Performs one way analysis of variances. 
Analyzes a variance table of one way random design. 
Plots functions of X and Y. 
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Bingo An age old favorfte. "B9, C23, D^, £13, F21 , BINGO! 

Bonds Computes the yields for a bond for different periods. 

Bull If you ever dreamed of being a Matadorj here's your chance. 

Enterprise Take charge of the Enterprise while Capt. Kirl< is on leave. 

Football Authentic NFL version of this well Icnown sport. 

Funds 1 Calculates long-term predictions of funds. 

Funds 2 Plots the results of Funds 1. 

Go-Moku Ancient Chinese game of chance. 

Jack Plays Blackjack, Las Vegas style. 

Life Life is truly a battle for survival, a real challenger! 

Loans Calculates annuities, loans and mortgages. 

Mazes Generates unique maze puzzles for you to solve. 

Poker Five card draw - for up to 5 players. 

Popul Performs population projections for defined areas. 

Profits Determines the profitability of a firms various depts. 

Q.ubic 3-Dimensional Tic-Tac-Toe. 

Rates Calc. the effective annual interest rate for stated interest. 

Retire Calculates your Civil Service Retirement benefits. 

Savings Computes savings plan profiles. 

SBA Calculates repayment schedules for SBA loans. 

TIc-Tac-Toe An all time favorite for young and old alike. 
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Compare Compares two groups of data. 

Confid 10 Determines the confidence limits for a normal population. 

Descrlp Provides a description of uni-variant data. 

Differ Computes the diff. of the means for data of equal variance. 

Engine Calculates the otto cycle of engines. 

Fourier This program evaluates fourier series. 

Horse Draws a picture of a horse. 

Integers Computes Integers as the sum of other integers. 
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Probal Calc. Chi-Sq. and probabilities from 2X2 data sets. 
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Red Baron Draws a picture of the infamous Red Baron. 
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PREFACE 

The information contained in these pages represents the culmination of a 
very large project. That of compiling a versatile and complete Software 
Library that will be of use to a large number of diverse individuals. The 
programs presented here when combined in a system will represent a very 
powerful library bank. Such a work as this has been attempted in the past 
In such areas as cook books, electronic source books, mathematical tables 
and even computer games. But to date such a collection as this has yet to 
be offered to the average individual to use as he chooses. The word "at - 
temped" was used as no work is ever considered complete by everyone regar 
dless of its thoroughness. 

The programs presented here were chosen for their uniqueness and general 
usefulness. There should be at least one program included that will be of 
use to every type of individual whether they have access to a computer or 
not. Computers are a wonderful and very useful tool. Through this Library 
I hope to interest more people into becoming involved with computers. The 
Library is written so that little or no computer programming experience 
is required to invoke any of the programs. The programs that are present- 
ed here are all written in the computer language called BASIC. Each pro- 
gram has been successfully run on a G.E. 635 computer. The entire source 
code is presented as well as a short narrative page which defines the pro 
gram, tells who might be interested in using it, a brief set of instruc- 
tions or how to get them and then any limitations in the program are no- 
ted. In the limitations section the storage length in K Bytes is given so 
the prospective user will know how much memory to allow for the program. 
Where possible the amount of memory space required for full execution is 
given for the programs, this space is Independent of the space already oc 
cupied by your BASIC compiler. 

The programs are broken down into five sections or parts. Each part deals 
with a specific type of program. Part 1 contains business type programs. 
These programs will be of interest to individuals who have businesses^ 
play the stock market, balance their own checkbooks, do installment buy- 
ing, figure taxes, etc. There are a total of 20 programs in this section. 
Part 2 is the lighter side of the Library as it contains 16 games and 12 
picture programs. No computer library Is complete without some fun. Among 
the games presented in this section is one called Checkers. The game is 
rather long but it is virtually machine independent as it doesn't use over 
lay techniques or use files. Most of the other games included here are as 
exciting as this version of Checkers. Each was chosen so as not to mimic 
others that the reader may have seen. The pictures are as unusual in their 
own way as are the games. Most of the pictures are spread over several pa 
ges, this was done not only so the reader will need to run the program to 
see the details of a particular picture but also In the hopes of getting 
as many of these programs into use as possible. As the picture programs 
are very simple It Is an easy place for the novice to start learning about 
programming. 

Part 3 is comprised of Math and Engineering programs. Some of these programs 
will be of use to high school students, professional people, sailors, engi- 
neers, astronomers, airplane pilots, etc. Most of these programs are very 
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technical but they can perform every day calculations quickly and easily 
and they are extremely simple to use. There are 23 general usage programs 
presented In this section. 

Part k Is made up of Plotting and Statistical Analysis programs. These 
programs can be readily utilized by a number of people in widely differ- 
ent disciplines from fishermen to statisticians. The data gathered may 
be from a poll, a census, a test sample or even the number of fish cau- 
ght on various days. The stat programs will be of invaluable aid to any- 
one who gathers data of any kind. The plotting routines will be of use 
to most of the people who use the stat programs or programs in Parts 1 
and 3. The plotting is done on any standard teletype or terminal and 
does not require a special plotter or plotting terminal. There are a tot 
al of five direct plotting programs and l8 stat programs in this section. 

All of the programs presented here may be run by simply typing the source 
code as listed, exactly as It is, into your computer. Now before the pro- 
gram will run it will have to be converted Into machine code. This is done 
automatically and requires no forethought except to make certain the oper- 
ating system you are working in Is BASIC. In the larger computer systems 
you are asked what system you want — to this type BASIC; the smaller sys 
terns only have BASIC, in these you are O.K. 

Immediately following Part 4 is Appendix A. Here, all of the Basic State- 
ments used throughout these pages are defined. Each statement is explained 
sufficiently well to enable one unfamiliar with this subset to modify any 
necessary statements so that the program or programs will compile and exe- 
cute with the Basic compiler or Interpreter available with their particu- 
lar computer. Most of the Basic compilers available today, that require 
more then 10K Bytes of storage, will execute all of the programs presented 
in these volumes with the possible exception of a few of the games and the 
program "Variable". Multiple line statements are not used in most of the 
programs and only a few programs use string manipulations extensively. A 
few of the programs may require more on line storage then Is available on 
some of the small micro computer systems; these longer programs will not 
be executable due to the limited amount of memory. However most of the 
programs will execute in 10K Bytes of memory or less, thereby making most 
of the programs In this Library executable in virtually any Basic speaking 
computer without any required modifications. 

Volume Mi is comprised of ADVANCED BUSINESS programs, part 5- This volume 
as well as subsequent volumes are intended to make this Library complete 
and useful to all individuals. 

Each of these programs are written in a subset of the Dartmouth language. 
The specific subset is that which was used by General Electric on their 
635 systems. These programs have operated without problem on a variety of 
small and large machines even several of the new micro computers. The pro 
grams that use string manipulations may require slight modifications be- 
fore fully executing on some systems. These programs are mainly found In 
Part 2 — — Games. 
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All of the programs in this Library were written or edited by the author. 
All of the programs edited by him were given for inclusion, "swapped" for 
traded, or made public. A few of the original authors of tlie "swaps" are 
not l<nown, for this I apologize. The others, unless specifically mentioned 
in the text, are presented here. In addition I would like to thank the fol 
lowing for their cooperation in making this work possible. 
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BEAM: 



DESCRIPTION 

This program calculates the proper steel beam to be used for a particular 
application. The support may be subjected to the following conditions: 



(LI. 
(L2. 
(L3. 
(Bl. 
(B2. 
(83. 
(84. 



Uniformly distributed load 

Midpoint load 

Two symmetric loads 

Support at both ends 

One end supported, other end fixed 

Both ends fixed 

Cantilever 



USERS 

This program lends itself to construction type projects; such as building an 
addition to your house or garage, dams, bridges, transmission towers, etc. 



INSTRUCTIONS 

This program will ask if you want instructions when it is run. The output from 
the running of the program will be the standard nomenclature designation for 
the proper beam best suiting your needs. The weight of the beam is also taken 
into account when the calculations are performed. 

LIMITATIONS 

The program will store in 5K Bytes of memory. It should execute in any standard 
Basic speaking computer. 
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9U_P 

I0y 

lie 

1£9 
139 
1 40 
1 50 
1 60 
170 
180 
1 '30 

£',0ei 

•:■ 1 iZi 

l_- i *:-' 

££0 
£30 
£40 
£50 
£60 
£70 
£80 
£90 

300 

310 
3£0 
330 
340 
350 
360 
370 
380 
390 

400 

4 1 
4£0 
4301 
440 
450 
46Gi 
470 
480 
4 9 Pi 

500 

510 
5£0 



DIM Q 
RIHT 
irFUT Y 
IF V7=l 



rji i 



S(55) ? 
JlJ WANT 



r!i:55)? K(55j? W(55) 
INSTRUCTIONS Ci=YESj 0=NO) 



J?10J lljl£!l3?9?0J0?W 



THEN 1670 
GOTO 1 40 

liflTfl 1 J £ J c' J 4 3 5 ? fc' J 1 
FOR 1=1 TO 4 
FOR .J=l TO 4 
REflD QCIsJJ 
NE>^T J 
NEXT I 

FOR 1=1 TO 53 
REfiD S ( I ) ? D i: I ) ? K ( 1 1 J 14 i I ) 
NEKT I 
PRINT 

PRINT "WHAT ARE L? E?Sj W? Psfl" 5 
INPUT Cl?C£jL?WjP5fl 
LET C=Qi:Cl5C£) 
IF C>0 THEN 310 
PRINT 

PRINT "NOT PROGRfiririEn TO SOLUE THAT CASE. FOR L= 
PRINT "CAN COMPUTE RECOMMENHEH BEAM ONLY FOR E=l. 
GOTO 1940 
PRINT 

C<3 THEN 440 

C=3 THEN 460 

THEN 480 

THEN 500 

5£0 

540 

560 

530 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



0=4 
C=5 
C=6 

0=9 



THEN 
THEN 
THEN 
THEN 
C= 10 THEN 600 
0=11 THEN 6£0 
C=l£ THEN 640 
C=13 THEN 660 
LET M=WSLSL.-S 
GOTO 670 
LET M=WS6LffiL.--l£ 
GOTO 670 
LET M=W«L*^L.--£ 
GOTO 670 
LET M=p5«SL.--4 
GOTu 670 
LET M=35SpWL.^-l6 
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53B GOTO 670 

540 LET M=P»;L.--8 

550 GOTO iii:.70 

560 LET M=pWL.-'£ 

570 GOTO 670 

580 LET n=fm 

5 '30 GOTO 670 

600 LET M=W5«L»:Lx-8+P»;L.--4 

610 GOTO 670 

6£0 LET ri=W»;L»-:L.--8+3»ip*:L.--16 

630 GOTO 670 

640 LET M=W»;L»sL.--1£+P»^Lx-8 

650 GOTO 670 

660 LET M=W«L3«L.--£+P»;L.--e 

670 LET S=l£*M.-c:0000 

680 FOR 1=1 TO 53 

690 IF S<Si:i) THEN 730 

700 ne>=:t I 

710 PRINT "LRRGE ENOUGH BEAM DOES NOT EXIST— REDEFINE PROBLEM' 

7£0 GOTO 1940 

730 IF C<£ THEN 850 

740 IF C=3 THEN 870 

750 IF C:=4 THEN 89© 

760 IF C=5 THEN 850 

770 IF C=6 THEN 850 

780 IF C=7 THEN 870 

790 IF C=8 THEN 890 

800 IF C=9 THEN 850 

810 IF C=10 THEN 850 

8£0 IF C=ll THEN 850 

830 IF C=1£ THEN 870 

840 IF C=13 THEN 890 

850 LET Mi=ri+wi:i:i»;L»^L.--8 

860 GOTO 90y 

870 LET M1=M+Ni:I1»;L»;L--1£ 

8S£i GOTO 9£i0 

890 LET rii=ri+wi:i;i»;L»:L.-e 

900 LET S£=l£^Nl--£0000 

910 IF S(IJ>=S£ THEN 94© 

9£0 LET S=S£ 

930 GuTO 690 

940 PRINT " RECOMMENIiED BERM IS H "JIKI); 

950 IF Ki:i:i=l THEN lOOO 

960 IF K(IJ=£ THEN 10£0 

970 IF K(I1=3 THEN 1040 

980 IF K(I)=4 THEN lObO 

990 IF Ki:i;i=5 THEN 1080 

1000 PRINT "U"; 

1010 GOTO 1090 

10£0 PRINT "JR"? 

1030 GOTO 1090 
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1040 
1050 
1060 
1 070 
1 080 

1 09ti 

1100 

1110 

1 ■* PPs 

1130 
1140 
1150 
1160 
1170 
1180 
1190 

1800 

1810 

1830 
1 840 
1850 
1 860 
1870 
1880 
1 8yti 
1 3010 
1310 
1 380 
1330 
1340 
1 350 
1360 
1 370 
1380 
1 390 

1 400 

1410 
1480 
1 430 
1440 
1450 
1460 
1 470 
1 480 
1490 
1 50101 
1510 
1580 
1530 



PRINT "JRU"? 
GOTO 1 090 
PRINT "E"; 
GOTO 1 090 
PRINT "WF"; 
PRINT Wi;ij 
F'RINT " 

MORE DRTfl i:i=YES3 0=HO) 
INPUT Y7 

IF Y7=0 JHE.\\ 1940 
liu TO;-'80 
DflTR 1. 1 J 3? 1 ? 4. 1 

C' 5 '■-• ? 1 ? 5 

4 ? & ? t; J 4 » 4 

-_' ? l" J C 3 -_i n ■_! 

i'' 5 O ? iz' 5 6 . 5 
5 5 1 11 ? 3 ? c' « 4 

8 ? 1 ^i^ ? c! ? 9 
3 ? 1 8 ? 3 3 1 0i . fc. 



DfiTH 1 , 
DflTR 8. 
DflTfl 3. 
DflTfl 4 . 
DflTfl 6. 
DflTfl 7. 
DflTfl 9 = :; 
DflTfl 10. 



i 5 X y 5 



11.5 



DflTfl 18? 18385 11.8 
DflTfl 14.8? I834? 14 



DflTH 17.53 1; 



^3 16 



DflTfl IS. 8? 103 4? 19 
DflTfl 81.4? 18? 4? 19 
DflTfl 81.5? 103 5? 81 
DHTfl85.33 183 4?88 
DflTfl 86.43 103 53 85 
DflTfl 34. 1 3 18? 5? 87 
DflTfl41.83 14? 5? 30 
DflTfl 43.5? 14? 5? 34 
DflTfl 56 . 3 ? 1 6 3 5 3 36 
DflTfl 64 . 4 J 1 6 ? 5 3 40 
DflTfl 78 . 4 ? 1 6 ? 5 3 45 
DflTfl 80 . 7 3 i 6 3 5 3 50 
DflTfl 89? 13? 5? 50 
DflTfl 93.8? IS? 5? 55 
DflTfl 1 07 . 8 3 1 S ? 5 3 60 



DflTfl 186.4 
DflTfl 139.9 
DflTfl 150.7 
DflTfl 175.4 
DflTfl 196.3 
DflTfl 880.9 
DflTfl 848.8 
DflTfl 848.9 
DflTfl 866.83 
DflTfl 899.8 
DflTfl 387.9 
DflTfl 354.6 
DflTfl 404.8 



8 1 3 5 3 68 
8 1 3 5 3 68 
81 3 5? 73 
84? 5? 7fc- 
? 84? 5 ? 84 
? 84 ? 5 ? 94 

? C I" 3 -_i 3 y^- 
84 3 5 3 1 0101 

87? 5 3 108 
30? 5? 108 
30 ? 5 3 1 1 6 
-301 3 5 3 1 84 

33? 53 130 
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1540 
1550 
1560 
1570 
1530 
1 590 
1 600 
1610 
1 6£0 
1 630 
1 640 
1 650 
1 660 
1670 
1630 

1 699 

1 700 

1710 
17S0 
1730 
1 740 
1750 
1 760 
1 770 
1 730 
1 790 

1 sei0 

1810 
18S0 
1330 
1340 
1 850 
I860 
1870 
1330 
1 890 

1 900 

1910 
1 9SW 

1 930 
1940 



446. 
503. 
541; 



f,f-,: 



1, 



€■69 . 
740 = 



951.; 
1031, 
1105, 

"TH 
"TO 
"RE 
"fiO 



DflTfi 

DflTfi 

IiflTfl 

DftTfi 

DflTfl 

DRTfl 

PflTR 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT 

PRINT 

liOTu 1£0 

DflTfl 1 ? 1 ? 

END 



y ? 3 3 ? --' ? 141 
9 J 36? 5? 150 
1 60 
36? 5? 170 
36? 5? 183 
€•? 36? 5 ? 194 
€■ ? 3 c! 5 5? 300 



cr -">■"» I'll 

5 Z'b ? 5 ! •Z.'f'ki 
['t' ? O ? 34-_* 

:!6? 5? £60 

c!? 36? 5? £3y 

1 ? 36 ? 5 ? 300 



IS PROGRflM WILL RECOMMEND THE CORRECT STEEL BEAM" 
USE FOR fl NUMBER OF COMMON flPPLICflTIONS. TO USE? 
SPOND TO THE QUESTION 'WHAT flRE LsB? S? W?P? fl?' " 
CORDING TO THE FOLLOWING CODE: " 

L = 1 FOR UNIFORMLY DISTRIBUTED LOAD" 
= £ FOR SINGLE MIDPOINT LOAD" 
= 3 FOR UNIFORM LOAD + SINGLE MIDPOINT LOAD" 
= 4 FOR TWO EQUAL SYMMETRIC LOADS" 

E = 1 FOR EEflM SUPPORTED flT BOTH ENDS" 

= £ FOR ONE END Fi:>CD? OTHER END SUPPORTED" 
= 3 FOR BEAM FIKEH AT BOTH ENDS" 
= 4 FOR ONE END FT IKED fCANTILEUERl " 

S = LENGTH OF THE SPAN IN FEET" 

W = DISTRIBUTED LOflU IN POUNDS PER FOOT" 

(SET = IF NOT HPPLICflELE)" 
P = EACH CONCENTRATED LOAD IN POUNDS" 

(SET = IF NOT APPLICABLE)" 
fl = LOCATION OF LOADiS) IN FEET FROM END" 

(SET = IF NOT APPLICABLE)" 



1 ? 1 ? 1 ? 1 
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RUN 



UiHFiT' i'iR'Fr L. ? B ? S ? W ? F' ? Fi '? 1 ? 1 ? SS ? 1 fiPiPi ? Fi ? i3 
IvEiJUliriFlinEIl EEFiM IS Fl Iq- UIF 

MORE DFiTH i:i=YES?fi="!HJ) Pi 

i.'JHflT FiF:EI L ? B ? S ? i-i ? F' ? Fl ? i ? ? ? F;F:i ? 1 QB ? U ? 
RE:C0i1i1E'jfEiEri BEJ=lf1 I£; Fi F^! M. f 

MORE IiFilH a=^YES?0=Mu) ?1 

MhlfiT FlRE L ? E ? S ? i'l ? P ? Fl T'-l- 5 1 ? .?3 ? Pi ? 1 yiZiiSu ? 9 

recumme:mi!e:d ee;fim if; fi 

MORE liFlTFi i:i=YES5ei=MGi ?i3 
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CONV; 

DESCBIPIIQN 

Conv calculates convolutions in the time domain. The calculations may be 
done for data points or for equations. The calculations are performed by 
integrating the function over the interval, with a very large number of 
increments (1000 or more). Due to this, the answer will only be approxi- 
mate and the running time may be excessive. 



Vj V* *■»» I \ %«* 

Mathematicians, Physicists 
program. This program is a 
sponses, antenna responses 



, and Electrical Engineers will have use for this 
very powerful tool for determining impulse re- 
, and system transforms. 



IN STRUCTIO NS 

The program will list all necessary instructions. If the convolution is for 
equations they must be entered between lines 1680 and 1700 before the pro- 
gram is run; upon running type a 1 to the first response and a to the sec- 
ond response. If the input consists of data, type in the # of data points 
you have to the first response and then enter your data points at the sec- 
ond response. 



L IMIIAII.QNS 

Lines 1080 and 1090 contain MAT = ZER statements. A3 in line 1370 may be 
made larger for greater accuracy, however this will increase the running 
time. I (MAX) * I (INCREMENT) > 1/2 for proper program operation. The source 
code is 3K Bytes long and execution space requirements will be a function 
of the DIM statement on line 1020 



\ 



^ 



^ 



/ 
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com 



lyi50 .UlM ft (4108) ! W i4 1003 

1838 REn THIS PROGRhN WILL DO COMUOLUTIOhS IN THE TIME DOMfllH 

1040 REM OH iJRTfl POIMTS OR EiaUHTIONS. 

1050 PRINT "THIS PROGRfiM HILL CuNUuLUE TIME DOMAIN DRTfl OR EQ. 

1060 PRINT 
1 



! E *;-- 



1090 MhT W=ZER 

1100 Him=i 

1110 PRINT "IF THE CRLCULhTIONS HRE FOR DflTfl TYPE fl (13 ? ELSE (£ 

11S0 INPUT D 

1130 IF D=l GOTO i£00 

1140 PRINT "ENTER YOUR EQ. 'S BETWEEN LINES 168© AND 1780 BEFORE" 

1150 PRINT "EXECUTING THIS PROGRAM. LET Yl=i:EQ.i '^- EQ.£:3" 

1160 PRINT "WHERE EQ.l^FUNCT) & EQ.£=FUN C I-T) . " 

1170 PRINT "UPON RERUNNING TYPE A (1) TO THE FIRST QUESTION." 

1180 PRINT "AND ENTER A (83 FOR THE NUMBER OF DATA POINTS." 

1190 GOTO 1830 

1800 PRINT 

1 £10 E=£.718£8£ 

1££0 PRINT " HOW MANY DATA POINTS DO YOU HAUL? " 

1£30 INPUT N 

1£40 IF N=8 GOTO 1360 

1£50 PRINT 

1£60 PRINT "INPUT YOUR K DATA" 

1£70 FOR 1=1 TO H 

1£S0 INPUT X(I3 

1£90 NEXT I 

1300 PRINT 

1310 PRINT "ENTER YOUR W DATA." 

13£0 FOR 1=1 TO N 

1330 INPUT WfI3 

1340 NEXT I 

1350 GOTO 1370 

1360 D7=l 

1 370 A3=£0£i0 

1380 E=l 

1390 IF D7=0 GOTO 1430 

1400 REM A3 IS THE INCREMENT STEP AND SHOULD BE UERY LARGE 

1410 PRINT "INPUT I (MAX) AND THE I (INCREMENT) DESIRED," 

14£0 INPUT NjE 

1430 D£=Y£=0 

1440 PRINT 
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1450 PRINT 

1450 PRINT " I "f" COriUOLUTION " 

1470 PRINT "■ "5" UfiLUE " 

1480 PRINT 

1490 fl=E 

1500 FOR I7=fl TO H STEP B 

1510 IF D7=l GOTO 1570 

15£0 FOR K:=i TO fI7*fl3) 

1530 I9=-K.--I7 

1540 REM THIS LOOP IS FOR GENERRTIHG Ki) & WC) SERIES IF nESIREn. 

1550 NEKT K 

1560 IF Ii7=0 GOTO 159© 

1 570 0= 1 7 -■• f RS^* I NT C 1 7-+ 1 . 1 ) ) 

1530 GOTO 1610 

1590 C=i 

IbOti Ii£=-1 

1610 REM IF THIS IS FOR DfiTfi fiND NOT AN EQ. LET H=C=i 

1620 IF Ii7=0 GOTO 1660 

1630 1=17 

1640 GOTO 1670 

1650 REM IF N>S? Ki) it Wi) MAY HflUE TO BE REDIMENSIONED, 

1660 I=I7^fl3 

1670 FOR T=0 TO I STEP C 

1680 REM ENTER YOUR EQ. 1 & EQ.£ HERE 

1 690 Y 1 =K f T ) ^W a -T 1 

1 700 REM LET Y I = ( EQ „ 1 s^EQ . £ ) 

1710 Y£=Y£+Y1 

17£0 D£=D£+1 

1730 rWXT T 

1740 Y=Y£ 

1750 IF 07=0 GOTO 1780 

1760 Y=i:Y^I3-Ti£ 

17T-'0 GOTO 1790 

1 780 Y= f Y"« 1 1 .-- f rt£^ 1 7 J 

1790 I£=I7 

1800 PRINT IE5Y 

1810 ri£=Y£=0 

ISE-O NEXT 17 

1830 PRINT 

1840 PRINT "IF YOU WOULD LIKE TO RUN MORE DflTfl TYPE R i 1 ) . " 

1850 INPUT D 

18fc£i IF Ii=r GOTO 1060 

187^3 END 
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Example: Find the response of a circuit 
with an impulse response of e"""^ to a forcing 
function of u(t), for £ t < «. 

and y(t) = / u(T)e(t-T) dt 

and e(t-T) = e-(t-T) = e^'^"*) 



LET LU. 1 

L.Jr., I cJ::'. - CI 



i T ) --■■■■ 1. 



UMFf STEP RESPOMCE) 



■m LET 

I r LI Fi !■■■!) -10 

I (MIN) = 0.05 



-.HM 



i:Ti=j 



1681 W ( I ~T ) =-E>-;p [ - (I I J ) 



COrlLi LiFlLUE 



Li . f 



i50£' 




^^1^^^"^:^^?%^^ 
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FILTERi 

DESCRIPTION 

This program designs and calculates components for low pass filters. The 
filter is designed using constant K T sections and M - derived L sections. 
As many as 9 sections may be combined to give specific notch rejections a- 
above the roll off frequency. 



USERS 

Audio enthusiasts can use this program to design special tone circuits. The 

ham radio operator who wishes to suppress harmonics from his transmitter is 

still another user. Anyone who designs AF or RF circuits will be able to 
benefit from use of this program. 



INSTRUCTIONS 

Before the program is run your data must be entered in lines 10 thru 29. The 
format is as follows: 

10 DATA R,C,N,F(1),F(2), 

where 

R - is the input and output impedance 

C - is the roll off frequency in Hertz 

N - is the number of notch frequencies 

F(l) - is the frequency for the first notch 

F(2) - is the frequency for the second notch, etc. 

Then type RUN. Additional instructions may be obtained by listing the program. 



LIMITATIONS 

This program should store and execute in 4K Bytes of memory, 
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FILTER 



3i3 DIM L i 10) sFilQi ?3 CIS) jC(10) 

4 id DIM Mi 10) 

50 DflTfi 40E4? 10E6? 1? 100 

60 FOR I=0TU 10 

70 LET F(I)=0 

80 NEXT! 

90 RLHH R?!-'(1) jR 

100 FOR 1-a. TO R+1 

110 READ Fi;i) 

1£;0 MEXT I 

1 30 LET L= 1 000*;R.-- (3.141 59£655«F ( 1 ) ) 

1 40 LET C= 1 000O00.--" (3=141 59£b5»^F ( 1 1 *^R ) 

150 LET L(l)=.bSL-^-£ 

160 LET S(n=„64seL-^-l.£ 

170 LET C(l)=.6»^C.^-£ 

180 FOR I=£ TO 10 

190 IF F(I)=0 THEM £5© 

£00 LET M(I)=SQR(1-F(1).--F(I)5KF(1J.^T(I)1 

£10 LET L ( I) =M r I ) SL.-£ 

££0 LET S(I)=L»;((1-M(I1*^M(D1.^(45«MCI1 1 ) 

£30 LET C(I)=C5SM(I) 

£40 NE>a' I 

£50 PRIMT 

£60 PRIMT "DESIGM FOR DESIRED LOW PASS FILTERS " 

£70 PRIMT 

£80 PRIMT 

£90 GOSUB 66£1 

300 GOSUB 6£0 

310 GOSUB 640 

3£0 GOSUB 6£0 

330 PRIMT" >" J L.^-£+L ( 1 ) j "MH" ? " I" 

340 GOSUB 6£0 

350 PRIMT "4 "SC?" riFD +" 

360 GOSUB 6£0 

370 LET I=£ 

380 IF F(I)=0 THEM 560 

390 PRIMT">'SL-^-£+L(I) j"MH"j" I" 

400 GOSUB 6££1 

410 PRIMT"+ "5S(£);"MH +" ? Ci:£) s "MFD +" 

4£Hi GUSUE 6£0 

430 FOR 1=3 TO lO 

440 IF F(I)=0 THEM 508 

450 PR I MT " > " ? L ( I ) +L ( I - 1 ) j " MH "," I " 

460 GOsUB 6£0 

470 PRIMT"+ " 3 S ( I ) ? "MH +■• , C il'i, "MFD +■' 
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480 GOSUB t.£0 

490 MEKT I 

500 PRINT">"?LCI-lJ + Li:i)?"MH"?" I" 

510 GOSUE 620 

5£0 GOSUB 640 

530 GOSUE 620 

540 GOSUB 660 

550 GOTO 680 

560 PRINT">%L.^-£+L(li! "MH'S" I" 

570 GOSUE 620 

580 GOSUE 640 

590 GOSUB 6£0 

600 GOSUB 660 

610 GOTO 680 

6£0 PRINT" I"? " % " "? " I" 

630 RETURN 

640 PRINT"+ " ; S C 1 ) ? "MH +■" ? C i 1 ) ? "MFD +" 

650 RETURN 

660 PRINT "0< 'SRJ" OHM LINE"?" >0" 

670 RETURN 

680 PRINT 

690 PRINT 

700 PRINT "TERMINFlTING SECTIONS GIUE MfiXIMUM flTTENUflTIUN FiT" J 1 = £5'*F C 1 J 

710 IF FC£)<>0 THEN 740 

7£0 PRINT "CYCLES PER SECOND. " 

730 GuTO 750 

740 PRINT "CPS IN RDDITION TO THE SPECIFIED RTTENUflTOR FREQUENCIES." 

750 STOP 

760 PRINT 

770 PRINT "THIS PROGRAM DESIGNS LOW PASS FILTERS USING CONSTANT K" 

780 PRINT "PROTOTYPE T SECTION AND M DERIUED i:M=0,6) TERMINATION" 

790 PRINT "L SECTIONS. UP TO NINE ADDITIONAL M DERIUED T SECTIONS" 

800 PRINT "MAY BE INCLUDED TO GIUE HIGH ATTENUATION AT SPECIFIED" 

810 PRINT "FREQUENCIES IN THE STOP BAND. TO USE? ENTER DATA ASs " 

8£0 PRINT 

830 PRINT " 10 DATA R? C? Nj F i 1 ) ? FCE)?...? FiNl" 

840 PRINT 

850 PRINT "WHERE R = DESIRED CHARACTERISTIC IMPEDANCE IN OHMS" 

860 PRINT " C = DESIRED CUTOFF FREQUENCY IN C YCLES.-SECOND " 

870 PRINT " N = NUMBER OF ATTENUATORS DESIRED IN STOP BAND" 

880 PRINT " Fill = FREQUQiCY FOR ATTENUATOR I" 

890 PRINT " TYPICAL INPUT FOR ONE ATTENUATORS 500? E'OOO? 1 s £056" 

891 PRINT " INPUT TAKEN FROMs THEORY OF NETWORKS S. LINES? " 
89£ PRINT "BY POTTER ^ FICH P.P 111" 

900 PRINT "THEN TYPE 'RUN'." 
910 DATA 
9£0 END 



306 



FILTFR 



1 [ 1 F! T Fl ? J 8 E '4 ? £ ? 4 '5 5 f i ? '3 1 £ 



Rur-i 



DESIGH FOR riESIRE,:!! LOU F'FlsS FILTER: 



id- 

T 
J, 

+ - 

I 



+- 
I 



+ - 
I 

I. 
+- 

I 

I 

+ - 
I 
0- 



rji'-l 



li-lM I Tri 



0.4£:4 4r3£ MH •+■ 0.095493 MEIi 
. iS366 1 98 MH 

. 79'ri390 1 i'iH 

0.0003348 MH + 0.31800SS MElJ 

0.7356815 MH 

0.0098505 MH + 8.310587 MED 

0.6868918 MH 

0.4844138 MH + 0.095493 MEH 

50 OHM Lir-IE 



TERM I NAT IMG SECTIUMS GIUE MAXIMUM HTTEMUFlTIOM FiT 



100 



CPS IM HliIHTION TO THE SRECIEIED HTTEMUFlTOR EREQUEriCIES. 
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FIT! 

DESCRIPTION 

This program performs interpolations using spline fits. The interpolation 
may be on data points, or integration limits, or anything else that needs 
to be interpolated. 



USERS 

This program is oriented toward individuals who analyze data or do interpo- 
lations for other reasons. 



.IMimjJir±QM.S. 
Enter your data before the program is run; in the following format: 

1900 DATA X,I 

1901 DATA X(1),Y(1),X(2),Y(2) 

1 Q DATA 

1990 DATA 1(1), 1(2), 

where 

X = number of X and Y data points 

Y = number of interpolations wanted 
and 

X(l) = first X point 

Y(l) = corresponding Y point 

1(1) = first point where interpolation is desired 

After the data has been entered type RUN. 

LIMITATIONS 

Line 15 contains a Restore statement. The source code is 3K Bytes long and 
execution space is a function of the size of the DIM statements in lines 
1100, 1110, 1121, 1122 and 1123. The program is set for 50 data sets in the 
DIM statements; this will require about 8K Bytes just for storage of the 
variable tables. With the DIM set at 50, the program will require UK Bytes 
of memory for execution. The sample problem designs a low filter with 50ohm 
impedance, 20 KHz roll off, and 2 antenuators in the stop band; 455 KHz and 
91 KHz. 
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10 

15 



30 



READ Q:3 
RESTORE 

IF Q3 = 6E36 THEN 30 
GOTO 1100 
?INT "DO YOU NEED INSTRUCTIONS? TYPE 
iPUT Ufc. 
40 IF U6 = 1 THEN 1999 
45 REFlD Q3 
50 RESTORE 

55 IF Q3 = fc.E36 THEN £075 

1100 DIM XC50J ?Y(50) jSf50) jHf50J ?Ef50) ?Cf' 
DIM Ri50) ?E(50J 3 0(50) 
DIM Zi50j 



FOR YES? FOR NO. 



5Pi I ■• F !' 50 1 H G r 50 '! 



1110 

ll£i 

li££ 
11£3 
1130 



DIMTi:50) 

DIM WC50) 

REflD NjM 
1 1 40 F"OR 1 = 1 TO N 
1150 REfiD Kil'i.Yili 
1160 NEXT I 
1170 FOR I = 1 TO M 
1 1 80 READ Z C I ) 
1190 NEKT I 
1£00 FOR I =£ TO N 

i£i0 LET sfn=fta)-> 

1££0 NEXT I 
1£30 FOR I = 



CI-l) 



1£40 LET Hi I 
1£50 LET EC I 
1£60 LET Cil 
1£70 LET EC I 
1£80 NEXT I 
i£90 LET BCn=l 



£ TO N--1 
=S i I ) .^-6 

= (sci;i+si:i+ii ;i.--3 

=SiI + n.^-6 

= CYa+n-Y(i) ).^sii+i) 



(YCI) -Y(l-li J ■■-Sd) 



13 

i: 
i; 

13 

13 
1 

13 

i:: 

13 
13 



,0 



00 LET bi:n)=i 

10 LET CCi)=-.5 

20 LET F(i:i=0. 

30 LET Ft:Nl=0. 

40 LET wci;i=Ei:i;i 

50 LET R!:i;i=ci:i:i 

60 LET GC1)=0. 

70 FOR I = £ TO N 

80 LET wi:i)=Ea)-HriisRfi-i) 

90 LET R r I ) =C (I :i .--W (1 3 



WC13 



1 400 LET G f I ) = (F f 1 .1 -fl i: I ) «G ( I~ 1 ) 3 ^-W ( 1 3 
1410 NEXT I 
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14£0 
1430 
1440 
1 450 
1 460 
1470 
14S0 
1490 

1 500 

1510 

1 5£0 
1 530 
1 540 
1 550 
1 560 
1570 
1 580 
1 5-30 
1 60£i 
1610 
1620 
1 63ei 
1 640 
1 65ti 
1 660 
1 670 
1 68£i 
1 690 
1 7 £10 
1710 
1 7£0 
1 730 
1 740 
1 750 
1 760 
1 770 
1 7a0 
1 790 

1 800 

1810 
1 880 
1 830 
1 840 
1 899 
1 9£i0 
1 999 

£000 
£010 

£0£0 
£0££ 
£030 



LET E(HJ=G!:ri) 
FOR I = £ TO 
LET K= 
LET E 
NEXT I 
FOR I 



M+l-I 
iK)=GCK)-P(Ki*E(K-M) 



LET Y- 

IF : 
IF : 

LET Ti 
GOTO 1 
IF Zd 
PRINT 
GOTO 1 
IF Zil 
PRINT 
LET K 
GOTO 1 
IF ZCI 
IF ZCI 
LET Ti 
GOTO 1 
LET K 
IF K< = 
GOTO 1 
LET Ti: 
LET Ti: 
LET Tf 
NEKT I 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FOR I 
PRINT 
NEXT I 
PRINT 
PRINT 
PRINT 
FOR I 
PRINT 
NEXT I 
STOP 
DflTR 6 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



= 1 TU M 

:j-:Ka)>0 then 1600 

:)<Kil) THEN 1530 

1 3 =Y 1: 1 :i 

70y 

i>= Cl.is^xrn-. i^^KiE)) THEN 1670 

"OUT OF RRNGE Z= "Zd) 

670 

)<=!:i. l*^ftCNl-. 1*^Xm-13 3 THEN 1580 

"OUT OF RRNGE Z= "Zil) 

= N 

670 

)>fti:Kl THEN 1640 

XX (K) THEN 1670 

I3=Y(K3 

700 

= K + 1 

: N THEN 1600 

560 



Il=Ei:K-l)*i 

i)=T!:i3 + i:yi: 

I ) =T i I ) + i. '(' C 



X i K ) -Z ( I ) ) t3.--6.-"S ( K ) +E 1: K ) 5K f Z f I i -X i K- 1 ) ) t3^''6.--"S f K ) 
K3 --8 (K) -E i.K) "*S CK) .■€•') '^iZil) -X (K-l 3 ) 
K- 1 1 .'"S i K 1 -E C K- 1 1 *-S f K 3 --6 3 '^ t X ( K 3 - Z 1 1 3 3 



"NO OF POINTS GIUEN = "N 

"NO OF INTERPOLATED POINTS = "M 

"INTERP X"?"INTER:P Y" 

= 1 TO M 
Z a 3 5 T C 1 3 



"ORIGINfiL X"5"0RIGINHL Y" 

= 1 TO N 
X ( 1 3 ? Y i 1 3 



E36 

THIS PROGRAM COfPUTES SPLINE INTERPOLATION." 
"STARTING IN LINE 1906 THE FIRST IiATA STATEMENT" 
"MUST BE THE NUMBER OF PAIRS OF X AND Yj FOLLOWED" 
"BY THE NUMBER OF INTERPOLATION POINTS DESIRED." 
"THE FOLLOWING DATA STATEMENTS MUST CONTAIN THE" 
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c:ti4a 
£042 

20 1& 
£070 

£075 
£080 

qqQQ 



PRINT 

PRINT 

PRINT 

PRINT 

STOP 

PRINT 

PRINT 

END 



"UHLUES OF K RND Y, FOLLOWED BY THE K UflLUES 
"WHICH INTERPOLATIONS RRE TO TAKE PLACE. " 
"ENTER DATA ACCORDING TO INSTRUCTIONS." 
"AFTER DATA IS ENTERED TYPE RUN 



Al 



"PLEASE ENTER DATA RND THEN TYPE 



RUN 



1900 IJHTH 11: 

1901 Tifufi fiji; 

190£ DflTA . li 

1903 :DHTi=l .&i 

1904 hhth .£; 



079: 



1179? .4? . 1 



91 



;iyl? .9? .3159, 1, .3413 



RUM 



HO. OF POINTS GIUEN = 11 
NO. OF INTERPOLflTElj POINTS 



INTERP 



iriTERP Y 



:l'^y9'::ilcl J 
156386 
'4£105£ 
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INTEGRATION Is 

DESCRIPTION 

This math program evaluates definite integrals. The integrals are calculated 
using the Gaussion quadrature techniques. For this, ten values of the inte- 
grand are used. This program is only used to evaluate discrete equations; 
for data sets see Integration 2. 



This program will find many users among all types of engineers, physicists, 
and mathematicians. The program is useful anywhere anyone needs integration. 



Enter your function in line 100. The format is as follows: 

100 LET Y = f(x) 

Then type RUN. The program will ask for L, U, and N, where: 

L = lower limit 
U = upper limit 
N = number of intervals to take 

To stop the program type 0,0,1 to the L,L),N question. 



LIMITATIONS 

This program will require about 2K Bytes for storage and 3K Bytes of memory 
for execution. 



^^W 


'J ' 


^'•<*>.;*- j^ii /// 


f 


^.j-'^^^^^S ' ^ 


.•<^ 


.^^r^Z^-z^Kl.'C^.^sz *■ Sj 


■^-"' 




■■^' ■ , 


m^0m 


<■ 


»»^ 




•w^i 


..-■■"f 


. S^S-^ /'\ ^S?T-'= J'— .; 




-ft=S^ C-5 S!:=£-5C-- 




l^S^^ OO -^^^fT-s^ 






:vv^' , 


^^'l^'i^^^iS 


, ' 



-<^:j^ 
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irJTE:GK:HriON 1 



DIM iJC10) sRi 10:1 

i_C. i i — lc.44 
FOR 1=1 TO 5 

REfilt U C D ? R ( 1 1 



6 NE 


:XT I 


7 L.E 


:t y=LuG(99) 


10 L 


_ET K=K 


£4ti 


IF Y=ir44 THEN 690 


£50 


IF J=i THEM 510 


£60 


IF J=£ THEN 550 


£70 


IF N0 = 1 THEN 380 


£80 


PRIHT 


£90 


PRINT "L? U? N = '-i 


300 


INPUT fi0? B0? N0 


310 


IF fi0 = E0 THEN 860 


3£0 


IF N0 < 1 THEN 780 


330 


LET fl = H0 


340 


IF N0 = 1 THEN 410 


350 


LET Z0 = 


360 


LET D = iE0~Fi01.-N0 


370 


LET E = R 


31 80 


LET E = E -4- D 


390 


IF E <= B0 THEN 4£0 


400 


IF Z0 > THEN 6£0 


410 


1 FT E = E0 


4£0 


LET CI = .5*;CE+fl) 


430 


LET C£=B-fl 



440 LET S=0 

450 LET 1=0 

460 LET 1=1+1 

470 LET W=C£sUiI) 

480 LET X=C1+W 

490 LET J=l 

500 GO TO 10 

510 LET S=S+RCI)^Y 

5£0 LET X=C1--W 

530 LET_J=£ 

540 Gu iU la 

550 LET S=S+Rai»^Y 

560 IF I<5 THEN 46© 

570 IF N0 = 1 THEN 61© 

580 LET Z0 = Z£i + S*^C£ 

590 LET fi = E 
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600 fJOTO 380 

610 LET Z0 = S^Ce 

6£0 PRINT 

630 PRINT " THE IHTEGRhL FROM "5 H0? " TO "? ES? " = "J ZO 

640 PRINT 

650 GOTO £80 

6 60 DflTfl 74437 1 695E~ 1 ? 1 4776E 1 1 £E-y ? £ 1 6697697E-9 ? 1 34633360E-9 

6 70 DflTfl 339704784E--9 ? 1 09543 i 3 1 E-9 ? 43£53 1 6S3E-9 ? 747356746E- 1 

680 DflTfl 486953£64E-9?33335b7££E-10 

690 PRINT 

700 PRINT "THIS PROGRflM EUflLUflTES DEFINITE INTEGRflLS USING GflUSS' RULE "? 

710 PRINT "WITH 10 PTS." 

7£0 PRINT "TO USE? ENTER THE RJNCTIOH TO BE INTEGRATED flS s" 

730 PRINT 

740 PRINT " 100 LET Y = < fl FUNCTION OF K >" 

750 PRINT 

760 PRINT "YOU CflN USE LINE 10-1 £9 TO EXPRESS THE FUNCTION. " 

770 PRINT "THEN TYPE 'RUN' ." 

780 PRINT 

790 PRINT "as IT RUNS? THE PROG-F:fiM flSKS FOR :" 

800 PRINT "LOWER LIMIT (L) 5 UPPER LIMIT UJl ? # OF INTERUflLS CNl . " 

810 PRINT "CONE INTERUflL IS USUALLY GOOD ENOUGH FOR A SMOOTH FUNCTION^]" 

8£0 PRINT "IF MORE THAN ONE INTEGRAL IS TO BE EUflLUATED?"? 

830 PRINT "JUST KEEP SUPPLYING LIMITS." 

840 PRINT "C 'P' ALREADY HAS THE UALUE PI? IN CASE YOU NEED IT.)" 

850 PRINT "TO STOP THE PROGRAM? MAKE THE TWO LIMITS EQUAL. " 

860 END 

INTEGRflTIOM 1 



1 00 LET Y=;-<;»:«£.'-" ( LOG ( 3*^;K ) ■■"£ . 30£58509 J 

RUN 

Lj U? N = ?03 7.65? 1 

THE ir-ITEGRFlL FROM 

L? Uj N = ?7.653 15675 1 

THE INTEGRAL FROM 7.65 TO 1567 = 3.64E78 EOS 

L? Uj N = ?i3? 0? 1 
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INTEGRATION 2: 

DESCRIPTION 

This integration program performs integration by spline fits. The function 
may be defined by unequally spaced data points instead of an equation, as 
in Integration 1. Integration 2 is used to integrate a function described 
by data points and not an equation as in the previous program. 



This program would have more appeal and use to individuals who gather data 
then would Integration 1. 



INSTRUCTIONS 

Your data must be entered before the program is run. The format for the 
data entry is as follows: 

700 DATA X 

701 DATA X(1),Y(1),X(2),Y(2) 

where 

X - is the number of data sets to be used 

X( ) and Y( ) are the corresponding data points 

Then type RUN. 



LIMITATIO NS 

Line 19 contains a Restore statement. The source code will store in 3K Bytes 
of memory. The execution space is about UK Bytes when set for 50 data sets. 
The number of data sets the program will handle is set in the DIM statements 
on lines 170, 180, and 190. 
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iriTEGRFiTIOM 



fc. REM 

7 REM 

8 REM 

9 REM 
1 PiREM 
11 
18 



EDO NOT RESEQUENCE] 
IMTEGRRTIOM OF fi FUNCTION FROM DflTFl POINT:; 
(POSSIBLY UNEQURLLY SPfiCED POINTS) 



5PLINE FITS 



FROM -'MflTHEMfiTICflL METHOHS FOR DIGITflL COMPUTERS"? UOL. IIi. 



RALSTON 



WILF? 1967 



PFiGES 156 



X -■• 

£0 

£1 

£5 

30 

40 

50 

60 

70 

170 

180 

1 9ti 

c',00 

£10 

'Z' """ L -^ 

t... I_. K-' 

£30 
£40 



THEN 25 



EMS 

REFiD Z 
RESTORE 
IF Z = 6E36 
GO Tu 170 

PR I NT "I NSTRUCT I ONS 
INPUT Z8 

IF Z8 = 1 THEN 810 
REflli Z 
RESTORE 

IF Z = 6E36 THEN 950 
i D I M ;■■■: f 50 3 ? Y C 50 3 ? S i 50 ) ? H ( 50 ) ? B ( 50 ) 

D I M C C 50 3 ? F f 50 3 ? R ( 50 ) ? G f 5ei 3 ? E ( 50 3 

D I M W i 50 3 ? ( 50 3 ? T i 5© 3 

REfiD N 

FOR 1=1 TO N 

READ K C 1 3 J Y a 3 
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(TYPE 1 FOR YES? O FOR NO 3 



LET Of 1 3=0 
LET EC 1 3=0 

50 ne:=^t I 

60 FOR I =£ TO N 
LET Si 1 3 =H (1 3 
NEXT I 
FOR 
LET 
LET 
LET 
LET 



£7S^ 

£80 
£90 

300 

310 
3£0 
33Gi 
340 
350 
360 
38£i 
39i0 



(1-13 



I = £ TO N-1 

fl ( 1 3 =S i 1 3 --'t- 

B(I3 = (S(I3+S(I + 13 3.--3 

CC 1 3=8(1 + 1 3 ■■-6 

F ( 1 3 = ( Y (1 + 13 -Y (13 3 -^S ( I+l 3 - 



(Y(I3-Y(I--13 3/'S(I3 



NEXT I 

LET fl(N3=-.5 

LET B(13=1. 

LET C(13=-.5 

LET F(13=0. 
400 LET F(N3=0. 
410 LET W(13=B(13 
4£0 LET RC13=C(13 ■^W(13 
430 LET G(13=0. 
440 FOR I=£ TO N 
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45© LET Wil !=Bf IJ-RdJS^Rf I-l) 

460 LET RfI)=cai---W(IJ 

470 LET Gin = iF(i:i-i=fCn*;GiI--l J J.^'WCI) 

480 riE:-:T i 

490 LET E(ri:i-G!N:i 

500 FOR I=£" TO H 

519 LET K=N+1-I 

5£0 LET E(KJ=GCKJi-Ri;Kl^E(K-H) 

530 NEKT I 

540 LET T (11=0.0 

550 FOR I =£ TO H 

560 LET T(I1=T( I-ll+SinsfYfij+Yd-l) ).xP, -S ( I ) 13^ (E C I) +E( I-l) ).- £4. 

570 NEXT I 

580 PRIIiT 

590 PRINT " K"," Y"? "INTEGRfiL" 

600 PRINT 

610 FOR 1=1 TO N 

6£0 PRINT XiD ?vaj sTCI) 

630 NEXT I 

650 STOP 

700 DhTh 6E36 

810 PRINT 

815 PRINT "INTEGRATION OF H FUNCTION BY SPLINE FITS? WITH THE FUNCTION" 

8£0 PRINT "DEFINED BY fPOSSIELY) UNEQUALLY SPACED DATA POINTS." 

8 £5 PRINT " " 

830 PRINT " STARTING WITH STATEMENT NUMBER 700 THE FIRST DATA STATEMENT" 

340 PRINT " MUST BE THE NUMBER OF PAIRS OF X AND Y. " 

850 PRINT " THE FOLLOWING DATA STATEMENTS MUST CONTAIN THE UALUES" 

860 PRINT " OF X AND Y. " 

900 PRINT "ENTER" DATA ACCORDING TO INSTRUCTIONS." 

910 PRINT "AFTER DATA IS EMTERED TYPE ^RUN' 

9£0 STOP 

950 PRINT " PLEASE ENTER DATA AND THEN TYPE RUN " 

9999 END 



■'■■■. '■■'.■.■•X ■;'■■■'■. "'■'"""•■■''.■■'ii--'!"', 
i, ■•"■ ?■. ,■■■■■. >■■■•■■■;* ""-A-*?'.'/?; ■! 



••>.'-H=ij:-.i 
..■■ ■ ■■Sfi-i 

. '•■"•■;■■■. 

■VXw ■ 

>L ; 
.-■■•ftf 



■•■■ =.■:■■■.■■.■■ ■'■■'i?*-?: i-' ■■ 
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IMTEGRRTTOr- 



7( 
71; 

72 
7t 
71; 



DFlTFl 11 
;il DFlTFl 0J0 

IiFlTFl .1 J, 0398! 



4 ? . 1 ■_i-..i'-r ? 



13 DFlTfl 

;i4 IiFlTFl .7! .£58j 

:i5 DFlTFi 1? .3413 



. £? B 0r'9':!|i = 3? . 1 1 r''y 
■_i? » 1 7I ■..15 »!::.! . cc Ji 

1? . £881 ? .9? .3159 



Ruri 



y 





IMTEGRFlL 







i3398 


,0019911 


0793 


.0079511 


1179 


.0178199 


1554 


.0314948 


1915 


, 0488539 


££5r' 


. i?i6'373 


c;b8 


. 0939314 


£881 


.1 £13573 


3159 


. 1514695 


3413 


. 1843773 
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INTENSITY; 

nE.g..C,E.IE..IIQ.N„ 

This program will compute wave interactions. The wave may be acoustical - 
such as sonar or hydrosonics, RF - such as VHF television, or it may be 
optical - such as infared light. Given the array size and spacings in wave- 
lengths of the wave the program will calculate and plot the directivity of 
the array, antenna, or transducer. 



USERS 

This program is useful 
marine engineer who is 
tor who wants to build 



to anyone who is interested in directive emitters. The 

designing side scan sonar systems, the ham radio opera- 

a highly directional beam, or the engineer who is work- 



ing with the new IR and optical military weapon systems. 



IMSIRUCIIQNS 

List the program for all necessary information. The plotting is in 9 degree 
increments from to 90 degrees. If other limits or resolutions are desired 
modify lines 1750 and 1760. 



LIfilTATIONS 

This program will store in 7K Bytes of memory and execute in 9K Bytes of 
ory. The plotting can be done on any standard teletype terminal. 



mem- 
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:nTE:ri'5iTv 



10 PRIMT " (Fir-iTEririH:! OR (wflUE) equhtion plotting PROGRhM 

£3 REM BY ROGER BROWN JfiNUfiRY 1975 

30 PRINT "SINO-iJ PERKS RT fO) DEGREES" 

40 PRINT 

50 PRINT 

60 PRINT "TYPE fi (1) FOR SINOO DEPENDENCY" 

7^0 PRINT "TYPE fi (£1 FOR COSCK) DEPENDENCY" 

80 PRINT "TYPE fi (3) FOR JUST (K) DEPENDENCY" 

90 PRINT "TYPE fi Q) FOR Z1=SINCN»^DEP. *S1 -••NS^SIN CDEP. ^SJ " 

1 00 PR I NT " TYPE fl ( £ ) FOR Z£=S I N ( ICP . ^L J .-- C DEP . »^L ) " 

110 PRINT "TYPE ft (3) FOR Z3=Zr*"Z£" 

1£0 PRINT "TYPE fi (0) FOR RES. UfiLUE OF Y? C U AMP.? (£1 INTEN. " 

130 PRINT " (DEP. ) = CC^^P^X) HHERE C IS SET=1.^-Pi. LINE £40" 

140 PRINT 

150 LET C1=0 

160 IF Cl=£ GO TO 180 

170 INPUT fl? Bs Dl 

1 80 REM ######################################## 

199 LET .J=0 

£00 LET P7=0 

£10 IF Ci=3 UO lO 330 

££0 REM CJ) mil CP7:i NUST BE MOUO FROM PLOT PROG. TO HERE TO WORK 

£30 REN K GOES FROM Q£ TO Q3 

£40 PRINT 

£50 PRINT 

£60 IF Cl=l GO TO 350 

£70 IF Ci=£ GO TO 330 

£80 REM THE LOOP STfiRTS AT £30 

£90 PRINT "INPUT N THE NUMBER OF ELEMENTS" 

300 PRINT "INPUT S THE SPflCING IN WflUELENGTHS" 

310 PRINT "INPUT L THE WIDTH OF THE RRRflY IN WflUELENGTHS" 

3£0 PRINT "IF NOT KNOWN LET N=105 S=i5 AND L=l" 

330 PRINT 

340 INPUT N? S? L 

350 LET P=3. 14159 

360 LET C=1^P 

370 REM THIS C IS USED IN LINES 2B0 AND 30© AND WHEN=1.-'P CANCELS 

380 REM C UARIES THE PATTERN IF USED. IT IS IN WflUELENGTHS 

390 LET ><9=AESf;K) 

400 IF X9=0 GO TO 470 

410 IF X9=iS0 GO TO 470 
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4£0 IF k9=36@ go TO 470 

43ti IF a9=540 go TO 478 

440 IF r--!9=7£0 GO TO 478 

450 IF X9=900 GO TO 470 

460 IF X9<>£1 GO TO 488 

470 LET :■■-:=;•-:■+■. 000001 

480 LET Xl=f;-:^PJ-'-i80 

490 LET y£:=iT:sp»;siH!::=-a) 1 

508 IF fi=l GO TO 550 

5 1 LET K£= f C*^P*^COS i>: 1 ) ) 

580 IF H=8 GO TO 550 

530 LET X£= ( C*^P*^ C K 1 J ) 

540 IF H<>3 GO TO £350 

550 LET M=fi 

560 REM H IS THE MUMEER OF ELEMENTS IM THE TRfiNS. fiNTEMNfi 

570 REM ALSO EACH ELEMEHT IS TO BE DRIUEN 

580 LET S=S 

590 REM S IS THE ELEMEHT SPfiCIHG IH WflUELENGTHS 

600 LET Zl=SINCH»^S*^K£)^-iN*^SINi:S*X£)) 

610 LET L=L 

6£0 REM L IS THE WIDTH OF THE HRRRY IH HflUELENGTHS 

630 LET Z£=SINCLs:>^£).--CLS=;X£j 

640 LET Z3=(Z1«Z£) 

650 LET W=Zi 

660 IF E=l GO TO 738 

670 LET W=Z£ 

680 IF E=£ GO TO 730 

690 LET W=Z3 

700 REM THIS IS TPLOTl 

710 REM THIS IS H GENERAL PLOTTING PROGRAM IT WILL PLOT UP TO 

738 REM £ FUNCTIONS AS DESCRIBED IH LINES £6£5 TO £675 

730 LET Y=AES(W:i 

740 IF D1=0 GO TO 780 

750 LET T=W 

760 IF Dl=l GO TO 780 

770 LET Y=W«W 

780 LET Z=:K£ 

790 LET Y1=Z 

800 REM ##### LET Z=Q1 IN LINE £850 TO PUT A RIGHT BORDER ON PLOT 

810 LET T=0 

8£0 LET T1=0 

830 IF J=0 THEN 880 

840 RETURN 

850 REM #####$$5$*##### Q0 AND Ql ARE LOWER AND UPPER LIMITS 

860 REM #####*■$$$$##### FOR THE Y A:=^:IS 

870 REM #####|:$$^$##### Q£ AND Q3 ARE MIN. AND MAK. FOR K 

880 LET Q0=~1 

890 LET Ql=i„5 

900 LET Q£=0 

910 LET Q3=90 

9£0 LET Q5=i:Ql-Q01.--50 
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940 
950 
9bO 
970 
9S0 
990 

1 000 
1010 
1020 
1 030 

1 £140 

I 050 

1 0b£l 

1070 

10c€i 

1 09£i 
1 1 00 

1110 

I I £0 

1 1 30 



LET 
LET 

LET 
LET 
LET 
LET 
REM 



Qt.=y 

E0=10 
Q4= f Qc 



-Uti I 



Q9= fy3+D4J 

K=0 

si^sisis^swffisis y ONLY PLOTS TO Q9~Q4 FOR SOME REhSuN 
POR y=Q£ TO Q9 STEP Q4 
REM ####################################### 



REM THE SUB ROUTINE MUST 

GOSUB 350 

IF Y1O0 GO TO 1060 

LET Y1=Q1 

IF 06=0 THEN 1470 

IF Q6 =£0 THEN i£00 

LET K=K+1 

TO 1140 

TO 1160 

TO 1180 



GO TO THE START OF THE EQURTIONS 



GU 
GO 
GO 



1££0 

" (DEGREES) 



1450 
1£50 

1450 



IF K=5 

IF K=7 

IF K=6 

PRINT " 

GO TO l£c:0 
1140 PRINT ■' DELTfl > 
1150 GOTO 1££W 
1160 PRINT " i:";Q4? "3 
1170 GO TO 
11£© PRINT 
1190 GO TO 
1£00 PRINT " 
1£10 LET Q6 = 10 
1££0 IF Y > Ql THEN 
1£30 IF YKQl GO TO 
1£40 LET Y1=Q1 
1£50 IF Y < Q0 THEN 
1£60 IF YKQ0 THEN 1450 
1£70 LET Q7 = QO + £»^Q5 
r£80 LET Z=Q7+i:Q5.--'£) 
1£90 IF T>0 THEN 1830 
1300 IF Z<Y THEN 1S£0 
1310 IF T1>0 THEN 1340 
13£0 IF Z<Y1 THEN 1340 
1330 GOTO 1940 
1340 IF Z-V>=£^Q5 THEN 1400 
1350 IF Z-Y>=Q5 THEN 1380 
13fcA3 PRINT " s"? 
1370 GOTO 1610 
1380 PRINT " ■« "5 
1390 GOTO 1610 
1400 PRINT "■*« "j 
1410 GOTO 1610 
1420 PRINT " "; 
1430 LET Q7= Q7+ "T^QS 



"I 
"I 

T 
"I 
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1 '-t'4'^ 

1 450 
1 460 
1470 
1 480 
1 498 

1 500 

1510 

1 5'3ti 
1540 
1 55ti 
1560 
1570 
1580 
1590 

1600 

1610 
1 6£ti 
1 630 
1640 
1 650 
1 660 
1 670 
1 68£i 
1 690 

1 700 

1710 
1728 
1730 
1 740 
1 r Jcj 
1 760 

1 1 i ■■_• 

1 790 

1800 

1810 
18£0 
1830 
1 840 
1 850 
1 860 
1 870 
1880 
1 890 

1 900 

1910 
19S0 
1 93ti 
1 940 



GOTO 1880 
PRINT "OFF SCRLE, 
GOTO 1 630 
PRItiT 



(■"■j ? ! ? 






"SYl 



IS PLOTTEl! '+' RNIi 



I f 



JMMON 









IF P7=99 THEN 1530 

PRIHT 

REM Y IS PLOTTED '^^^ HNIi 

PRINT 

PRINT 

PRINT "Y IS (^J " 

PRINT "Z=i:DEP.J i>)" 

PRINT "fOi IS CONMON DflTfl POINT" 

PRINT 

PRINT " ";Q0?" I Y INCREMENT = 

PRINT 

GOTO 1 £00 

IF T1=0 THEN 1430 

LET Q6=Q6+1 

IF INT!Z3>Q1 THEN 1668 

PR I NT 

NEXT >■ 

LET P7=99 

PR I NT Q3 ? " I + 1 + 1 +■ 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT "TYPE 'S' TO STOP NOW? OR ELSE SPECIFY NE14 UflLUES" 

PRINT "TYPE (13 FOR NEW EQUFlTIONS ONLY" 

PRINT " TYPE C2) FOR NEW DflTfl ONLY. CX LIMITS If- 

PRINT "TYPE (3) FOR ALL NEW URLUES. CX SCALE IN LINE 

INPUT CI 

IF Cl=l GO 10 160 

IF" Cl=£ GO TO 160 

IF C103 GO TO £350 

GO TO 160 

IF T1>0 THEN 14£0 

IF Z<Y1 THEN 14£0 

IF Z-Y1>=2»;Q5 THEN 1908 

IF Z-Y1>=Q5 THEN 1888 

PRINT ^ +■■; 

GOTO 1918 

PRINT " + "I 

GOTO 1910 

PRINT "+ "n 

LET Tl=l 

IF T>0 THEN 1630 

GOTO 1430 

IF Z-Y>=£^Q5 THEN £1£0 



Q1 



■I" 



1" 



IN 0900, 0910) 



0940)" 
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1950 IF Z-Y>=Q5 THEM 2040 

1960 IF Z-Yi>=£»^Q5 THEM £©£0 

1970 IF Z~Yi>=Q5 THEM £000 

1989 PRir-lT " 0"? 

1990 GOTO 1630 
£000 PRINT " +'^-"f 
£010 GOTO 1630 
£0£0 PRINT "+ «'■; 
££i30 GOTO 1630 

£040 IF Z~Y1>=£SQ5 THEN £10© 

£050 IF Z-Y1>=Q5 THEN £080 

£060 PRINT " '»■+"! 

£'.07£i GOTO 1630 

£080 PRINT " 0"; 

£090 GOTO 1630 

£100 PRINT "^-^■"', 

£110 yOTu 1630 

£1£0 IF Z-Y1>=£»;Q5 THEN £180 

£130 IF Z-Yl>=Q5 THEM £16© 

£140 PRINT "^ +"? 

£150 GOTO 1630 

£160 PRINT "■^■+"i 

£170 GOTO 1630 

£180 PRINT "U"; 

£190 GOTO 1630 

££00 PRINT 

£350 END 



The first data entry prompted for by the program is the values for A, B and 
DL The possible values for these variables are listed just prior to their 
input. A and B may be U 2 or 3 and Dl may be 0, 1 or 2. The value of 1 is 
normally used for A, the equations have sin (X) dependency. Sin (X) depen- 
dent equations have a peak response at degrees or on axis. B is usually 
3s which yields normal antenna response. The particular equation Zl, Z2 or 
23 that satisfies your system response will ultimately 
determine the value of B for your problem. Dl is a bit 
simpler. If Dl is set equal to 0, the graph plots the 
absolute value of the function. If equal to 1 the func- 
tion itself is plottedj the function will have values 
on both sides of zero. If Dl is set equal to 2, then 
the intensity function is plotted. 
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Sample Run of Intensity 

Example #1 

Determining the effect on directivity by varying the N,S, and L ratios. 
Where 

N = Total number of elements 

S = Element spacing in wavelengths 

L = Average array width in wavelengths 

For this array we chose sin (X) dependency and Z3 = Zl * 11. Then plot the 
amplitude of the results between degrees and 90 degrees. The plot is sym- 
metrical from 270 degrees to to 90 degrees. Where degrees is the direc- 
tion the array or antenna is pointing. The first plot is done for 9 degree 
increments as we are looking for the gross effects in this example. This 
plot is to be used as a reference which will be compared against the other 
examples. In this plot N = 10, S = 1 wavelength and L = 1 wavelength. It 
can be seen that the half power points are about 20 degrees wide, twice 10 
degrees. The small curve represented by "+" represents the dependent func- 
tion, sin (X) as set initially. This second curve is used to indicate pro- 
per operation. 

For the second plot N is left at 10, S is changed to 5 and L is left at 1. 
This array now has half power points at about 10 degrees. This means that 
by taking the same array as above and only changing the spacing between 
the elements the directivity has been doubled. However the side bands have 
also been doubled, this is normally not a desireable effect. 

For the third plot N = 10, S is reset to 1 and L is widened to 5 wavelengths. 
Here the half power points are 20 degrees but the side lobes are consider- 
ably less then in the first plot. 

For the fourth plot N has been increased to 50, S and L both set equal to 1 
wavelength. Now the half power points for this combination is again 10 de- 
grees but the side lobes are almost completely eliminated. 



Example #2 

This example examines the effects of infared light that is emitted from a #47 
light bulb. The plot is contained on two pages. The outer envelope "+" repre- 
sents the diffraction effects when focused by a perfect lense. The inner en- 
velope "*" represents the intensity of the radiation ^^v)i close to the axis 
of orientation. 
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hVK 



(ANTKNINA) Oh (WAVF) FOUATIJN PLOIIIN'G Pi-JGiAM 
SINCX) PFAKS AT (0) rFGhPES 



type: a (1) FOh SIN(X) 1 FP}-.VDF,.MCy 

TYPE A eg) FOR GOSCX) DFPFMDENCY 

TYPE A (3) FOP. JUST (X) DFPFKrFX'CY 

TYPE A (1) FOR /.l = SINCN^»DFP»»S)/iM»bIM(DFPoi»S) 

TYPE A (8) FOR ?:8=SI N ( PFPo »L) / ( DFP . ^M.) 

TYPE A (3) FOR Z3=7.l^7.2 

TYPE A (0) FOR APSo VALUE OF Y» C 1 ) AMP., CS) INTFN. 

CDEPo) = (C»P*X) WH-PRE G IS SF.T=1/P, LI Ml ?40 



•^ 1#3M 



INPUT N THE NUMPER i3F FLFMF.VTS 

INPUT S THF SPACING IN WAVELENGTHS 

INPUT L THE WIDTH OF THF ARRAY IN WAVELFNi 

IE NOT KNOWN LET N= 1 0, S=ls> AND L= 1 



iTHS 



' 10^ 1* 1 



(Reference plot) 



Y IS c*) 
Z=CDEPo) (4-) 
(0) IS COMMON 



DATA POINT 



( Y INCREMENT = » 05 ) 



1 . 5 






DELTA X 
(DEGREES) 
( 9 ) 



I 
I 
I 
I 
I 
I 
I 
I 
I 
X 



90 






I + 




._+ r 



• - + ■ 
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lYPF CI) }-)h Nf-W FQUATIOMS ONLY 

TYPF (P) FOh MFW TATA O'SLY . ( X LIMITS I \5 0900, 0910) 
TYPF (3) FOR ALL iX'EW vALUFS. CX SCALF IN LIMi- 0940) 



' 10, 5, 1 



Y IS C«) 

7,= CDFP.) C + ) 

CO) IS COMMa\' DATA POINT 



DELTA X 
C DEGREES) 
C 9 ) 



1 C Y INChFMFiXT 
I + I + I 



.Ob ) 



90 



,_ + . 




1 » b 

■ + I 






TYPE 'S' TO STOP NOW, OR ELSE SPECIFY NEW VALUFS 
TYPE CD FOH NFw EQUATIONS ONLY 

TYPE eg) FOR NEW DATA ONLY. CX LIMITS IN 0900, 0910) 
TYPE C3) FOR ALL NEW VALUES. CX SCALE IN LINE 0940) 
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' 10^ ls> 5 



Y IS («) 

z=<:dfp.) ( + ) 

(0) is common data poinl 



DELTA X 

(DEGREES) 
C 9 ) 



C Y INri'.F'MFN'T = . O.S ) 



1. 5 



90 




TYPE 'S ' TO STOP NOW, Oh ELSE SPECIFY NEW VALUES 
TYPE M) FOR NEW EQUATIONS JMLY 

TYPE (S) EOH MEvJ DATA ONLY. CX LIMITS I iV 0900, 0910) 
TYPE (3) EOR ALL NEW VALUES » CX SCALE IN LIME 0940) 

'a 
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' 50, 1, 1 



Y rs (*) 

?',= (r)FP.) ( + ) 

CO) IS C MM \> D A "i f ^ P .) I \i T 



(PFGHFFS) 
( 9 ) 




9 



.__I 



TYPF 'S ' TO ST3P NJw, )h: FLSF SPHTIFY K¥v. ^.'ALUFb 

typf (1) f)i'. mfv f0uatij\1s 0:\l/ 

typf c2) for new pat a }^!ly. (x limits in 0900, 0910) 
type c3) foh all new valpfs. (x hcalf in limf 0940) 

?;fady 

■St 
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0940 LFT PO=l'r'0 



(ANIENNA) OK CwAVF) F(,UA1I)^.' PL 3 T 1 I iN.' (- Pi.JGiiAM 
SI'XUX) PEAKS A'i fO) LFGP.FFS 



TYPE A CI) ¥0k bl'N'CX) DFFFKTFNCy 
COSCX) DEFF\'PF^T-Y 
jrST (X) DFPFNPFNCY 
7. 1 = S T ^: C N!* r: FP » * S ) /N-"* S I N C PF P . -^ S ) 
7,R=SI K' ( DFPo ^L ) / ( PEP. *L ) 
Z3=Zl-^7.P 

APS. UALPF )F Y,(l-) AMP., fP) IN'TF'M. 
C) WHFPF C IS SFT=1/P, Lir-'F P^fO 



IXipUT N THE ^•UMPFH OF FLFMFNIS 

IMPUT S THE SPACI\"n IX' \v A^yELE'VJGTHS 

INPUT L THE WIPIH OF THE Ahi.AY I 'X v, A^^ ELF NG'i HS 

IF X'OT KNOVN LFT N= 10, S=l, AN! L= 1 



Y IS (*) ^ 

Z= (+) (Z2)^ 

(0) IS COMMOX' DATA POIXH 

( Y IX'CRFMFX^T = .OP ) 



TYPE 


A 


(.9.) 


FOP 


TYPE 


A 


C3) 


FO h 


TYPE 


A 


C 1) 


¥ V 


TYPE 


A 


(?) 


FOR 


TYPE 


A 


(3) 


FOP 


TYPE 


A 


(0) 


FOR 


f DFP. 


. ) 


= (C*P» 


'?, 1. 


.9 







R9. 7 


I- 




xo 




10 




10 




10 




10 


DELTA X 


10 


(DEGREES) 


10 


( o005 ) 


10 




10 




10 




X.) 




10 




10 




10 




I ) 




TO 
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(The plotted points were joined by hand drawn lines) 



TO 

xo 

90.3 I- 



TYPE 'S' TO STOP NOV/, OH ELSE SPECIFY NEV. V^ALUFS 
TYPE (1) EOR NEW EQUATIONS ONLY 

TYPE (2) EOR NEW DATA ONLY. CX LIMITS IN 0900, 0910) 
TYPE (3) EOR ALL NFw l/ALUES. CX SCALE IN LINE 0940) 
^8 
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LOLA; 

DESCRIPTION 

This 1s a navigation program and will enable the user to determine position 
in latitude and longitude from data supplied from sextant readings and a 
nautical almanac. 



USERS. 

Anyone who wants to determine his location with a sextant and doesn't want 
to go through the laborious hand calculations would find LOLA very useful. 
This would include most small vessel owners and crewmen., 



INSTRUCTIONS 

List the program for instructions. All inputs are entered while the program 
is running. 



tnlMIIAIJilN.S 

Execution and storage of Lola will require about 6K Bytes of memory in most 
computer systems. 
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LJJL 



liZiQ 
110 
1£M 

1 30 

1 ,-1 C-i 

150 
160 

law 
190 

£00 

£10 
££0 
£30 REM H4g:H9 CORRECTED ALTITUDE SMB BODY 

£40 



iTERSTELLHR DISTaHCE' 

INPUT hescriptiohs' 



PRINT "TYPE 1 IF FIX £ IF _ 

PRINT "■ MRKE UNHEEDED UflLUES 0" 

PR I NT =^. I ST LINES 140 TO £4© FOR 

I NPUT r<9 

REN HLL_ INPUTS FiRE IN DEGREES AND MINUTES 

REM NORTH C+) SOUTH C-) 

CORRECTED DECLINATION OF 1ST BODY 
SIDERIRL HOUR ANGLE 1 ST BODY 



KC-.! ! i :i. '-:!!!_- 

REM h3S:R4 

REM R5g:Ab 

REM H5R:H3 

REM U1&U£ 

REM U3:<:U4 

REM U5g:U6 



:;TED GHA CARIES FOR STAR SIGHT) 
::TED ALTITUDE (HO) 1 ST BODY 
;TED DECLINATION END BODY 
IDERIRL HOUR ANGLE £ND BODY 
CORRECTED GHA (ARIES FOR STAR SIGHT) 



ORREC 
ORREC 
ORREC 



£70 
£80 
£90 

300 

310 
3£0 
330 
34ti 
350 
360 
370 
380 
39£i 

400 

410 
4£0 
430 
440 
45© 
460 
510 
5£0 
53ti 
540 



PRINT"R1 J A£? A3j h43 h5j A6? H5? H3" 
I NPUT R 1 ! h£ f A3 ? A4 5 A5 ? h6 ! H5 ? H3 
PR INT" U 1 ? U£ 5 1'3 ? U4 ? U5 ? U6 ? H4 ? H9 " 
I NPUT U 1 ? U£ ? U3 s IH ? U5 ? U6 ? H4 ? H9 

Y=57. £957795" " 

I i — 1 . _ii til' ^t'.I'C 

PRINT 
L5=A3+ CA4.---60) +A5+ f Ab.---'60) 

Ti — ! ■=: 

GOSUE £500 

T3=T£ 

L7=U3+ 1.U4---60 J +U5+ (U6--60) 

Ti=L7 
UOSUB £500 

T4=T£ 

X4=AESi:T4-T3J 
IF T4>T3 THEN 4£0 
GOTO 450 
IF X4<1S0 GOTO 510 

;::;4=3t.0-X4 
GOTO 560 
IF K4<1S0 THEN 560 

!-!4=:36£i-X4 

B3= C A 1 + r A£.--60 ) ) -■■Y 

E 1 = f U 1 + f U£.-"60 ) ) ■••■■ Y 

B9= (90- f H5+ (H3.-'6£i) ) ) .-■■ Y 

E7= (90- (H4+ (H9.-'60) ) ) ■-•"■!•" 
GOTO 6£0 
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jf-,k1 



>3= ( U i + C UiE'---60 J ) .-■"!■' 
570 El= (Hi + (HS-'"'60) ) ---"Y 
5£i0 ES= i 9ti- C H4+ ( H9--''b0 3 J ) •■■•'¥ 
5 90 E7= i 90- C H5+ ( I-13---60 ) ) ) -■" Y 
fc. £1 L5=U3+ f U4.---'fc.0 '} +U 5+ C ' Jfc.---'fc-ei 3 
6 1 ti L7=h3+ C H4.-"b0 3 +fl5+ f Rb.--"t.0 ) 
biE:0 V5=v4.^-Y 

630 IF X5>Y1 THEIN 650 

64£i GOTO 670 

6 50 E= i £-*Y 1 1 -K5 

b6£i GOTO bSei 

b8£i GOSUB 1010 



690 


700 


710 


7£0 


730 


740 


750 


770 



kQ=H;- 



! 



Fl=COS(E73 

F£=COS CBS 3 ^COS CB93 

F3=SIN iB83 ^Siri i:E93 

F4=CF1~F£3^^-F3 

F6=HTti C i 1 1~ i:F4t£3 3 1. 53 ./'F4) 
IF F6>0THEH SO© 

F9=£*^Y 1 +Fb 
780 F5=flESiF93 
790 GOTO til0 
800 F5=RESCF63 
£i 1 F=F5*^-Y 
830 Z9=Q1 

8 40 T8= 1 80-Q 1 
850 y5=iQi..-Y:i-F5 
860 E=rt5 

870 Bi=Yl-E8 

880 GuyiJE 1010 

89ti Z5=Z9 

90ti GOSUE £0£0 

910 PRINT "FOR SECOND FIK TYPE 1 RETURN TYPE £" 

9£0 INPUT P9 

930 IF P9=i THEN 950 

940 GOTO £40 

9 50 K5= ( Z9--- Y 3 +F5 
960 E=;K5 

97^0 GOSUB 1010 

980 Z5=T8 

990 GOSUB £0£0 

1000 GOTO £40 

1 1 P=hTN t f S I N i B 3 *^ COS (El) ) -- Ci - ( S I N ( E 3 «COS (6133 1£ 3 1 „ 5 3 

1 0£0 K=fiTN f ( S I N i B 1 3 .-COS C P 3 3 -•" ( 1 - i S I N ( E 1 3 --COS ( P 3 3 1£ 3 1 . 5 3 

1030 Kl=fiESi:K3 

1040 IF K5>Y1 THEN lObO 

1050 GOTO 11£0 

1060 IF K1>Y1 THEN 108© 

l07y GuTO 1100 

1080 K£=K1 
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1090 GOTO 1176 

1100 k£=£^V1--K1 

1 1 10 GOTOl 170 

11£0 IF Kl>Yl THEr-l 1140 

1130 GOTO 1160 

1140 K£=(£*t1)-K1 

1150 GOTO 1170 

1160 K£=K1 

1170 IF" Bi>0THEM 1190 

1180 GOTO 1£10 

1 190 K3=HBStK£} 

1£00 GOTO 1£60 

1£10 IF K>0 THEN 1£30 

1££0 GOTO 1£50 

1 £30 K3=l<£ 

1£40 GOTO i£60 

1 £50 K3=-K£ 

1 £60 K4=K3^Y 

1£70 K5=fiES(K3l 

1£80 E4=-B3 

1£90 Gi=K3-4-B4 

1300 G3=HES CGI) 

1310 G4=G3^T 

13£0 IF G4>iS0 THEH 1350 

1330 IF G4>90 THEM 1370 

1340 IF G4<90 THEN 1396 

1350 G5=G4-1S0 

1360 GOTO 1400 

1370 G5=180-G4 

1380 GOTO 1400 

1 390 G5=G4 

1400 GOTO 1410 

1410 G£=G5--"Y 

1 4£ei H=RTri I", f C 1 - i COS i: P ) s^COS i; G£ ) ) t£ ) t . 5 ) ■■■•■ t cos t P ) ^COS ( G£ ) 3 3 

1430 R3=HESi:H3 

1440 H1=R3«Y 

1450 G6=B3.^E1 

1 460 E4=-B3 

1470 G1=K3+B4 

1 4 80 G3=HBS C G 1 3 

1490 IF G6>0THEN 1510 

1500 GOTO 1550 

1510 IF K5>Yr THEN 1530 

15£0 GOTO 1650 

1530 GOTO 1590 

1540 IF G3<Y1 THEN 1650 

1550 IF X5<Y1 THEN 1570 

1560 GOTO 1590 

1570 IF G3<Y1 THEN 165© 

1590 H£=180~H1 

1640 GOTO 1710 
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1650 H£=Hi 

1710 HS=HESfH£) 

1730 IF X9=l THEN 175© 

1740 IF ft9=£ THEN £400 

1 750 H7=H8.-'Y 

1760 z=HTNf !:sini;p:i ■■••sini:h7) :i.'-i:i-(sini:p) ••■"Sihi;h7) }t£:it.5:i 

1770 Z6=flBSCZ:i 

1730 Z1=Z6^Y 

1790 IF G6>0 THEN 1305 

18ti0 GOTU iS3£i 

1805 R=flBSfB3) 

1810 IF K5>fi THEN 1859 

18£0 GOTO 1910 

1830 IF G3>£^Y1 THEN 1859 



1840 


GOTO 1910 


1850 


Q1=Z1 


1 9ti0 


GOTu 1 960 


1910 


Q1 = 1S0--Z1 


I960 


IF B3>0 THEN £0 


1980 


Q1=180-Q1 


£010 


RETURN 


£0£0 


U=90-H£ 


£030 


IF U>0THEN £050 


£040 


IF U<0THEN £080 


£050 


Ui=u 



£060 PR I NT "NORTH LATITUDE" 

£070 GOTO £100 

£080 Ul=-U 

£090 PR1NT"S0UTH LATITUDE" 

£100 U8=ABSCU1) 

£110 PRINT US 

£1£0 U£=INT(U8) 

£130 U3=(Ul-U£:i»;60 

£140 PRINT "DEGREES MINUTES' 

£150 PRINT U£jU3 

£160 IF Z5>F THEN ££00 

£180 U4=L5-Q1 

£190 GOTO ££10 

££00 U4=L5+Q1 

££10 IF U4>360THEN ££68 

£££0 IF U4>180 THEN ££88 

££30 IF U4<i80 THEN ££40 

££40 IF U4>0THEN £308 

££50 IF U4<0 THEN £3£0 

£ £ 60 U5=U4-360 

££70 GOTO £340 

££80 U5=360-U4 

££90 GOTO £360 

£300 U5=U4 

£310 GOTO £340 

£3£0 U5=AESi:U4:i 
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£330 GuTU £360 

£340 PR I NT "WEST LONGITUDE" 

£350 GOTO £370 

£360 PR I NT" ERST LONGITUDE" 

£370 GOSUi! £4£0 

£380 PRINT 

£390 RETURN 

£400 PRINT "INTERSTELLHR DIST" 

£410 U5=HS 

£4£0 PRINT U5 

£430 U6=INTi:U5) 

£■ 440 L!7= C U5-U6 3 *60 

£450 PRINT "DEGREES MINUTEi 

£460 PRINT U6?U7 

£470 IF X9=l THEN £490 

£480 IF X9=£ THEN £40 

£490 RETURN 

£500 IF Tl>7£0 THEN £530 

£510 IF T1>360 THEN £55© 

£5£0 IF TK360 THEN £570 

£530 T£=Tl-7£0 

£540 GOTO £580 

£550 T£=T 1-360 

£560 GOTO £580 

£578 T£=T1 

£580 RETURN 

£590 END 
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MACRO: 



This program simulates a high level language assembler. The program may also 
be used to study emulator functioning. It can also be used to amuse yourself 
while trying to determine what Macro is doing. 



USERS 

The cypher enthusiast, advanced programmer, and computer system analyst will 
find this program useful and enjoyable. Not recommended for the novice. 



Macro requires an Input use file and an Output use file. The Output file is 
not used in this version and may be deleted from line 170 if desired. To use 
this program you must pick an available file, preferably one with something 
in it. Then name it in the File Input Statement and type RUN. The teletype 
will then display the compiling function. The Input use file is not altered. 



LJMIIATJONS 

In line 170 there is a 
sively throughout this 
This program stores in 



of the length of the designated Input file. 



FILES statement. The SST( ) statement is used exten- 
program. This program requires file manipulations. 
2K Bytes of memory. Execution length is a function 
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riRCRC 



1 REM THIS PROGRHM REQUIRES 


10 F 


■EM MFiCRO 


£0 F 


!ErixMFiC:Rn 


30 REmnHCRn 


40 F 


.:ErifiHCRO 


50 PRINT TimCxJ f" SeCONDS 


60 PRINT " TMPE CHHR RND CR 


70 LET T = TinlxJ 


80 INPUT a$ 


90 REH DIMEr-iSIOHS 


1 80 


Din e(80} 


110 


Din clS0) 


1£0 


Din D i 8£i ) 


130 


REPl EPNSTHNTS 


140 


LET C = HSC i ) 


150 


LET DS = "let" 


160 


RE;n FILEDEF 


170 


FILES I NPUT ? OUTPUT 


180 


DELiniT #1 ? Ccr) 


1 90 


REn hCTIUE code 


£00 


CDTD 600 


£10 


PRINT "line done" 


££0 


RER GET hlE^T LINE 


£30 


LET u = 


£40 


LET F = 


£50 


I NPUT # 1 J R$ 


£60 


chhnee H$ TU E 


£70 


LET K = 1 


£80 


REn EP TD SCHNNER 


£90 


EDTD 400 


3 £10 


REn CLEAR LINE 


310 


p-DR I = 1 Tn 80 


3£0 


LET B ( I ) = E i I ) 


330 


LET D ( I ) = E i I ) 


340 


NEXT I 


350 


GOTD £50 


36£i 


LET t1 = TinCx) 


370 


LET D = t1 - T 


380 


PRINT "TinE = " fD 


390 


REn SCfiNNER 


400 


LET X = B(k) 


41© 


LET K = K + i 



EILES - INPUT 



OUTPUT. LINE 170 



? elk::;- ! 



? DRT:?- 
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4irjy 
430 
440 
450 
460 
470 
480 
490 

500 

510 
5£0 
530 
540 
550 
56ti 
57ti 
580 
59Pt 

600 

6 1 
6£0 
63£i 
640 
650 
66£i 
670 
680 



IF X = y onrn dkiki 
XF X = 38 GDTa 530 
IF X < 64- Gnrn 500 

L.ET F = 80 
L.F.T J = J+i 
LET D i J J =X 
LET dC01 = J 
GDTn 510 



GDTa 



1H 



SEEPND :: 
+ 1 

EaTn570 



d5 



:PRCE RFTER DHTR 



IF K = fc!U 

Gnrn 400 

REn FINDS 

LET F = F 
IF F > c'0 
GDTP 400 
GQTD 430 
LET X = X 
EHHNGE D TD 
GDTD £00 

IF dS = "REMMfiCRO" EDTn 646 
IF d:$ = "REnriHCRn" GnTp640 

PRINT D$ 

GnTn£30 

PRINT "nPDE IT " 
PRINT D5 
PRINT "NDRriHL" 
EDTn £10 
END 
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MAX. FlIN.: 

D ESCRIPTIO N 

This program calculates the maximum, minimum, and zero points, if they exist, 
of any function over any fixed interval. 



USERS 

People solving equations for roots or extreme values could put this program 
to very good use, such as: high school students, engineers, etc. 



IN STR U CTIO N S 

Enter all of your data into the program before execution, in the following 
format: 

100 DATA MIN,MAX,ACC,INC 

200 Let Y = f(x) 
where 

MIN and MAX - define the interval 

ACC - is the accuracy number of significant figures desired 

INC - number of increments the interval is divided (try 100) 

Then type RUN. 



LIMITATIONS 

Max. Min. will store in 3K Bytes of memory and execute in 4K Bytes. 
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riFiX. niM. 



30 ll! ze = 

100 GO TO 1490 

104 LET Y = 1E38 

108 READ Is F? Q? W 

li£ IF lOF THEN 14© 

140 PRINT 

144 PRINT-POINT-TYPE'S TflE(£3lj "FiK)"? " 

143 PRINT 

152 LET K=CF~Il.--N 

15b LET K1=K 

160 LET Q5=INTi0.4343^LOGC0.5S(HESi:D+flES(Fni1 

164 LET N=W.5*^(19t(Q5-Q3) 

168 LET F1=F+K 

175 LET R=0 

176 LET X=I-K 
180 LET T=£ 
300 LET V=1E38 

705 IF Y01E38 THEN 710 

706 IF I=F THEN 1490 
710 IF T<2 THEN 940 
7iE:0 IF T=3 THEN 750 
730 LET T=3 

740 GOTO 1 150 

750 IF Y=Yi THEN 870 

760 IF Y<Y1 THEN 830 

770 LET Ii=l 

780 IF YK0 THEN 810 

790 LET T=-l 

80ti GOTO 1070 

810 LET_T=1 

8c:£i GOTO 960 

830 LET D=-l 

840 IF Y1>0 THEN 810 

850 LET T=0 

860 GOTO 1100 

870 IF KKM THEN 910 

880 LET K1=K1.^£ 

890 LET X=K1+K1 

90ti GOTO 1180 

910 PRINT 

9£0 PRINT "NO CHANGE " 

930 STOP 

940 IF T<1 THEN 1050 

950 IF Y=0 THEN 1300 
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C| f^0_ 


IF 


ii=— 1 


TI-iEri 


1 1 


979 


IF 


Y >0 


THEH li 


200 


980 


IF 


RBSf 


VXflES 


(YD 



T"HEM 1 1 5Gi 

999 LFIT T=--l 

1000 GrlTO 1070 

1010 IF Y<0 THEN 11200 

lOiE:0 IF HBSiYXFlESrYl) THEM 1159 

1039 LET T=0 

1040 GOTO 1100 

1050 IF R=1 THEN 1470 

1060 IF T=0 THEN llOO 

1070 IF T>Yi THEN 1159 

1080 IF KKM THEN 1339 

1090 GOTO 11 £0 

1100 IF Y<Y1 THEN 1150 

1110 IF KKM THEN 1419 

11£0 LET ftl=><l-Kl 

1130 LET R=l 

1 1 4y GOTO 8a0 

1150 LET Y1=Y 

1160 LET ;Ki=K 

1170 LET X=X+Ki 

11S0 IF y<F1 THEN £00 

1 1 90 STOP 

1£00 IF KKM THEN 1££0 

r£l£i GOTO 8S0 

1££0 IF RESiYXfiBSiYl) THEN 1309 

1£39 PRINT 

1£35 PRINT ■' ZERO" 5 Z9j XI 

1£40 LET K1=K 

1£50 IF IJ=i THEN 1£39 

1£60 LET T=9 

1£70 GOTO 1150 

1£80 LET T=~i 

1£90 GOTO 1150 

1300 LET t1=Y 

1310 LET K1=H 

13£0 GUTO i£30 

1330 PRINT " MfiX'S YK Kl 

1340 LET Ki=K 

1350 LET D=-l 

1360 IF tK0 then 1390 

1370 let T=1 

1380 GijTO 1150 

1390 LET T=0 

1400 GOTO 1150 

1410 PRINT ■■ MIN"? YK Ki 

14£0 LET K1=K 

1430 LET Ii=l 

1440 IF YK0 THEN 1379 

1450 LET T="-1 
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1460 GOTO 1150 

1470 LET R=0_ 

1480 GOTO 11 50' 

1490 PRINT 

1500 PRINT ='THI3 PROGRRM WILL LOCATE 'INTERESTING' UfiLUES" 

1510 PRINT "OF H FOR RNY FUNCTION OF K. SPECIF I CRLLY? IT" 

15£0 PRINT "WILL LOCRTE THE UfiLUES OF K HT WHICH RELRTIUE" 

1530 PRINT "Nfl::aNUMS RND NINIMUMS OF FCK) OCCUR? RND THE" 

1540 PRINT "URLUES OF K FOR WHICH FiX) IS ZERO CI.E^j THE" 

1550 PRINT "ZEROES OR ROOTS OF THE FUNCTION)." 

1560 PRINT 

1570 PRINT " TO USE THE PROGRRM? TYPE THE FOLLOWING s" 

1580 PRINT 

159y PRINT " 100 DRTfl <XNIN>? <XMRK>3 <HCC>? < INCR>" 

1600 PRINT " £00 LET Y = <H FUNCTION OF K>" 

1610 PRINT " RUN" 

16£0 PRINT 

163ti IF 00 = 1 THEN 9999 

1640 PRINT "WHERE '^MiN' RND 'KMRft' DEFINE THE INTERURL IN" 

1650 PRINT "WHICH INTERESTING URLUES OF K RRE TO BE SOUGHT?" 

1660 PRINT "'RCC IS THE RCCURRCY (IN NUMBER OF SIGNIFICRNT" 

1670 PRINT "FIGURES) TO WHICH THE ZEROES OF K RND THE MRX" 

1680 PRINT "RND MIN URLUES OF FiX) ARE TO BE ESTIMATED?" 

1690 PRINT "'INCR' IS THE NUMBER OF INCREMENTS INTO WHICH" 

1700 PR I NT "TOTAL INTERURL IS TO BE DIUIDED FOR SEARCH (TRY 50 TO START)" 

1710 PRINT "RND THE FUNCTION IS RNY LEGITIMRTE BAS I C-LRNGUAGE FXPRESFariN" 

17£0 PRINT "INUOLUING THE URRIRBLE X." 

1730 PRINT "YOU CRN USE LINES £06 THRU 700 FOR THE FUNCTION." 

999*::* END 
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iiFi: 



100 "DFiTFl 0?7c!5; 

£00 LET Y=SIN(;^ 



^30 
41596'5.--180'i 



mM 



POIMT-TYPE 



i ■::: 



ZERO 



::'0.0019'5 



ZERO 
mil 



a 
-i 



Ic 



y. i;M 



■d ,- « . km 



-EF;0 

!lFl>- 



4':i0 . 0P 



!ER0 
MIM 






540.0117 
630 . 1 37 



ZERO 



i--:i 



719. 9F: 
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NAVAIDi 

DESCRIPTION 

Navaid is used to determine the Altitude and Azimuth of any known celestial 
body. This can be used to determine what celestial body you may be looking 
at or to determine where to look for a particular celestial body. 



U SERS 

Amateur astronomers and people interested in navigation would find this pro- 
gram useful. It would also be of use to mariners. 



INSTRUCTIONS 

For detailed program information list the program. All necessary information 
will be asked for when the program is run. 



LIMITATIONS 

Navaid should execute without problem in any Basic speaking computer with 5K 
Bytes of program space available. 
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i biy PRInT "RLTITUDE & HZIMUTH OF CELESTIFlL BOIiY" 

110 PRINT "LIST LINES 13@ TO SOS FOR INPUT DESCRIPTIONS" 

1£0 REN HLL UHLUES IN DEGREES RND MINUTES 

130 REN NORTH URLUES PRE + 

14fi REn SOUTH URLUES ARE - 

150 REM ERST URLUES ARE + 

160 REM WEST URLUES ARE - 

170 REM HjRi SIIiERlHL HOUR ANGLE DEG MIN 

180 REM HP J A3 GHR EUEN HOUR 

190 REM fl4?RD GHR MIN SEC 

£00 REM Rb U CORRECTION 

ply REM R7jRS _DR or AP LONGITUDE " 

P20 REM D?Di DECLINATION OF BODY " 

£30 REM D£ D CORRECTION 

£40 REM FOR SOUTH DEC CHANGE SIGN OF D COR 

£50 REM L^Ll DP OR AP LATITUDE 

£60 REM N?Wi? SEXTANT ALTITUDE 

£70 REM W£ INDE>^ CORRECTION 

£80 REM 143 DIP 

£90 REM R4.-- ALTITUDE CORRECTION 

300 REM THESE URLUES RRE PUT IN EXACTLY AS DONE ON HO £11 

310 LET Y=57. £9577951 

3£0 LET Yl=i.5707963P 

330 LET Y£=3.14159£65 

340 PRINT "THERE ARE 19 INPUTS AS GIUEN ON PROGRRM SHEET" 

3 5 W PR I NT " A ? A 1 J A£ ? R3 ? A4 ? H5 ? H6 ? H7 j R8 " 

3 6 INPUT A J A 1 5 R£ ? h3 5 A4 ? A5 5 Hfc ? fl 7 ? h8 

370 PRINT "D?Dl?D£?L?Li5W3Wl!.W£?W3jW4" 

380 INPUT D?D1?D£jL?L15NjW1?W£5W35W4 

3 9 LET B6=R+ f A l -•■'60 ) +R£ + ( H3--"60 ) +R4 

4 0£i LET C£=E6+ f fl5--""60 ) + C Rb--''60 ) +H7+ ( A8--"'b0 3 

4 1 LET B 1 = ( D+ f D 1 •■■bO J + { D£---60 ) J .-- Y 

4£0 IF C£>7e0 THEN 480 

43ei IF C£>540 THEN 500 

440 IF C£>360 then 5£0 

450 IF Ce>180 THEN 540 

460 IF C£<180 THEN 560 

470 IF C£<0 THEN 580 

48ti LET X£=7£0-C£ 

490 GOTO 590 

500 LET X£=7£0-C£ 
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5 1 fi GOTO 590 

':i£0 LET ft£=368-C£ 

530 GOTO 590 

540 LET Xc"=360"C£ 

550 GOTO 59ti 

560 LET >^:£=-C£ 

570 GO'i 590 

580 LET y£=-C£ 

590 LET :^4=HBSCy£)--Y 

600 LET fl=HES!>!£3 

610 GuSUB 1550 

6£0 PRINT'T DEGREES"? Hi ;"MINUTES"Jfi£ 

630 IF X4>Y1 THEN 650 

fc.4ti GOTO 67£1 

650 LET B=t£ -X4 

660 GOTO 680 

670 LET B=H4 

680 LET B=HES (B) 

690 LET E3= ( L+ C L 1 ^60 ) J •■■"¥ 

700 LET P=HTHi (SINCEISCOSCEI) ) /' C l-CSIM (B) *^COS CBl ) )t£)t.5) 

710 LET K=flTri ( C S I N ( B 1 3 -•COS i P ) ) ■■•- f 1 - i" 8 1 H i' B 1 i -nos r p 1 1 f? 1 1 , 5 1 

7£0 LET Kl=flESCK1»;Y 

730 IF X4>Y1 THEN SOO 

740 IF Kl>90 THEN 760 

75£i GOTO 7'8Fi 

760 LET K£=180-K1 

77Fi GOTO 850 

780 LET K£=Kl 

790 GOTO S5€i 

800 IF Kl>90 THEN 8£0 

810 GOTO 840 

8£0 LET K£=K1 

830 GOTO SSGi 

840 LET K£=180-K1 

850 IF K>0 THEN 870 

86ti GOTO 89ti 

870 LET K3=K£ 

8SHi GOTO 90ti 

890 LET K3=-K£ 

900 LET H=flESi:K3J 

910 GOSUE 1550 

9 £0 PR I NT ■' K IiEGREES " ? fl 1 5 " MI NUTES " ? H£ 

930 LET K4=K3^-Y 

940 LET B4=-E3 

950 LET Gl=''++B4 

960 LET G£=HESi;G1) 

970 LET fl=RESi:G£«Y;i 

980 GOSUE 1550 

990 PRINT"K#L DEGRElS" 5 fll ; "MINUTES" ? H£ 

1 00y LETH=H i N 1: ( LUS f P 1 *COS C G£ 3 3 -■- ( 1 - ( COS f P 3 ^^COS C G£ 3 3 1£ 3 1 . 5 1 

1010 LET H1=H:«Y 
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i 0£0 I ET' H=H1 

1030 GOSUE 1550 

1040 LET H3=Hl 

1050 LET H5-fl£ 

1060 LET Z=HTr-U (Sir-KP) /^■CuSiHJ )/-(l-rSINipj.--CnS(H:i ) t£) t.5J 

1070 LET Z1=2;WY 

1080 LET u3=K:/'B3 

1090 LET E7=RES(B3) 

1100 LET K:8=K£.^-Y 

1110 IF D3>0 THEM 1130 

1 1£0 GOTO 1140 

1130 IF K8>B7 GOTO 1160 

1140 IF Zl>90 THEN 1188 

1150 GOTO 1£00 

1160 IF Zl>90 THEN 1£00 

1 1 70 GOTO 1 1 80 

1130 LET Q1=Z1 

1 1 30 GOTO 1 £ 1 

1£00 LET Q1=180-Z1 

1310 IF E3>0THEri 1£30 

1££0 GOTU 1£90 

1£30 IF K2>id THEN 1 £58 

1£40 GOTO 1£70 

1£50 LET D5=Q1 

1£60 GOTU 1340 

1370 LET D5=360-Q1 

1£80 GOTO 1340 

1£90 IF X£>0THEN 1318 

1300 GOTO 1330 

r310 LET I!5=1S8-Q1 

13£0 GOTO 1340 

1330 LET D5=180+Q1 

1340 PRINT 

1350 PRINT 

1360 PRINT 

1370 PRINT"HC DEGREES" ; H3? "HC MINUTES'-JHS 

1380 PRINT 

1390 PRINT"Z'SQ1? "ZN"?r!5 

1400 PRINT 

1 4 1 y LET D7=i.'J+ i W 1 .-■■•60 ) + ( W£ ■■-'6a ) •+■ i W3--b€i ) + ( W4 ■•-'€•& } 

14£0 LET fl=ri7 

1430 GOSUB il55@ 

1440 PRINT "HO DEGREES" ;h1; "HO MINUTES" ;fl£ 

1450 LET D8=D7-Hl 

1460 LET D9=HBS(D8*-60) 

1470 IF D7>H1 GOTO 1580 

1480 GOTO 1530 

1490 PRINT 

1500 PRINT "fi";D9 5 "TOWARD" 

1510 PRINT 

15£0 GOTO 1580 

1530 PRINT "fl"?D9?"HWHY" 

1535 PRINT 

1540 GOTO 1580 

1550 LET fll = INTi;fl:i 

1560 LET H£=(fl-fli:is«60 

1570 RETURN 

1580 GOTO 350 

15-90 END 
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OPTICAL: 



DESCRIPTION 



Optical performs blackbody radiation calculations and conversions. It is 
programmed with look-up tables for various optical elements. The program's 
calculations are accurate from about 100 Anstroms to microwave wavelengths, 
The output may be listed and plotted on standard terminals. 



US E R S 

This program would be of considerable use to individuals who measure heat, 
optical transmissions, or temperatures. Laser engineers, optical military 
weapon system specialists, S.H.F. communications engineers, etc. Infared 
specialists will have considerable use for this program in determining 
complex energy transmissions. 

INSTRUCTIONS 

The program will prompt for all necessary data while the program is execu- 
ting. This program will work for any type of Thermal Radiators. The program 
may be listed for additional information. 



LIM ITAT IO NS 

This program is 16K Bytes long and may be restrictive due to it's length. It 
will require an additional 8K Bytes for execution space. It should execute in 
any Basic system having enough available memory. 
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713 REM THIS PROGRhM ChLCULhTES ELhCKEODY PROBLEMS 

90 PRIMT "THIS PROGRflM CflLCULflTES ELfiCKBODY PROBLEMS" 

lie PRINT "IT IS UERY FLEXIBLE RNE MRKES HO flSSUMPTIOMS" 

130 PRINT "EE CHREFUL TO ENTER ALL UNITS HS INDICRTED" 

140 TiTn Tl (50) ?R5$r501 ? Ul iSO) ? I! (50) sRSiSWJ ?R3$(59} sPSiSa) 

14£: DIM P5$ (50) ? Rl (50) ? Rll^ (501 

150 PRINT 

170 PRINT"#### REMEMBER USE WITH THERMAL RflDIflTORS ONLY ####" 

ISO PRINT 

£10 PRINT 

£30 PRINT 

£70 LET fil=(1.0E-04)«(1.0E-03) 

£90 REM THIS CONSTFlNT IS USEIs IM THE CflLC. OF W ONLY 

310 LET C5=0.434£945 

330 REM C5 IS .434£945 AND CONUERTS LOG E TO LOG 18 

350 LET E£=0.£5 

370 REM THIS IS THE EMISSIUITY GENERATOR FOP TUNGSTEN 

390 LET D3=l 

410 REM D3 IS USED IN THE LUMENS^STR CONUERSIUN 

43a LEi h£=5.6686E-05 

450 LET H3=1.33054E-lb 

47ti LET H4=£897.y 

490 LET Ke=£404 

510 LET D4=3b70 

530 LET C=£.99793E10 

550 LET A5=£73.18 

570 LET h6= 1.4383 

590 REM A6=Ci«H.-A3 

610 LET P=3= 14159 

630 LET H=6.6£5£E-£7 

650 REM THESE CONSTANTS ARE IN THE (CGSJ SYSTEM 

670 LET A7= (0.0065) 

690 REM H7 IS THE APERATURE IN CM^^£. OR (0.0065) 

710 REM THIS IS 1 ■■£ THE FILAMENT SURFACE AREA OF A #44 BULB IN CM-*;*-:£ 

730 LET S=0.001 

750 REM S IS THE STEP SIZE IN MICRONS 

770 LET B7=0. 1 

790 REM THIS IS THE ERROR IN MEASURING A7 IN °i 

810 LET B 1=0. 06 

830 REM THIS IS THE ERROR IN MEASURING Tl 

850 REM ses THESE ELKEDY CALC ARE FOR A LAMBERT I AN HEMISPHERE 

870 PRINT 
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899 PPIHT"DO YOU WANT CONUERS I OHS (1);. OR ELfiCKEODY CRLC. (SI" 

910 PRINT 

939 IMPUT Q 

950 IF Q=l GOTO 8£70 

970 PRINT 

990 LET R9$="N0" 

1010 LET Il=Ul=rJ7=N8=N9=0 

1030 PR I NT "HOW MANY TEMPERATURES DO YOU WANT TO RUH» 59 IS NA^. " 

1050 PRINT 

1070 INPUT Ni 

1090 PRINT 

1110 PRINT "DO YOU WANT TO INPUT THE APERTURE AREA? ELSE (.00651" 

1130 INPUT Q*: 

1150 IF Q5="N" GOTO 1890 

1170 IF Q$="NO" GOTO 1890 

1190 PRINT 

1810 PRINT "TYPE IN THE AREA IN iCPW^^i" 

1830 PRINT 

1850 INPUT A7 

1870 PRINT 

1890 PRINT 

1310 PRINT "DO YOU WISH TO INPUT UuLTAGE AND CURRENT" 

1330 INPUT R$ 

1350 PRINT 

1370 IF R$="N" GO TO 1490 

1390 IF R$="NO" GO TO 1490 

1410 PRINT "INPUT TEMPERATURE i DEGREES ) j SCALE CR) j (Fl , (C) ? (K) " 

1430 PRINT "AND CUOLTS) ? THEN (AMPS)" 

1450 IF R$="Y" GOTO 1556 

1470 IF R$="YES" GOTO 1550 

1490 PRINT "INPUT TEMPERATURE (DEGREES);. SCALE (R) ? (F) » (03? (Kj " 

1510 IF R$="N" GO TO 1670 

1530 IF R5="N0" GOTO 167© 

1550 PRINT 

1570 FOR D9=i TO Nl 

1590 INPUT Tl (D9:i ! R5$(D9)? Ui (D9) ? 11(093 

1610 NEXT D9 

1630 IF R$="Y" GO TO 1750 

1650 IF R5="YES" GO TO 1750 

1670 PRINT 

1690 FOR D9=l TO Nl 

1710 I NPUT T 1 ( D9 3 ? R5*: ( D9 3 

1 720 LET (J 1 ( D9 3 = 1 1 ( D9 3 =0 

1730 NEXT D9 

1750 PRINT 

1770 FOR D9=l TO Nl 

1790 IF R5-5(D93="R" GOTO 1979 

1810 IF R5$(D93="F" GOTO 8018 

1330 IF R5S(D93="C" GOTO 1396 

1850 IF R5$(D93="K" GOTO 1938 

1870 GOTO 103£i 
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1910 
1930 
1 950 
1 970 
1990 
£010 
iE:030 
£050 
£070 
£090 
£110 
£ 1 30 
£150 

C J. { '1' 

£190 
££30 

U.!_-_=t.' 

££70 
££90 

£310 
£330 



C. -Z' I '■If 

£390 

£410 
£430 
£ 4 5ti 

£490 

■"icr -i .-^ 

IZ. _' J. ti 

£530 
£550 
£570 
£590 
£610 
£630 
£650 
£670 
£690 
£710 
£7£€i 
£750 
£770 
£790 
£810 
£330 
£850 
£870 
£890 



LET T=T1 (1)9) +H5 

GOTO £030 

LET T=T1 (D9) 

GOTO £030 

LET T=CT1 fIi9:i-491.7]*;!5..^-9i+H5 

GOTO £030 

LET T= C T 1 f Ii9 ) -3£ J »^ f 5.^93 +fl5 

GOTO £050 

IF M9=l GO TO £650 

PRINT 

PRINT 

PRINT 

INPUT N 

PR I NT 

PRINT 

PR I NT "ENTER EN 

PRINT "*^* THE 

PRINT 

FOR D8=i TO ri 

INPUT Fl (DSJ 5 



'INPUT THE NUMBER OF SPECTRflL^ WINDOWS YOU WANT CflLaJL ftTED " 



POINT (MIN) 5 
;} SHOULD BE 



mflK) MICRUNS AND TRhNS. 

■9. TYPE (0! FOR SPECIRL 



i. > : 

LISl 



(Tif 



GOTO 



3. ) 

4. ) 

5. ) 

6. 1 



:'^,QCi 



TYPE H 
TYPE H 
TYPE R 



TYPE R 
TYPE H 
TYPE H 
TYPE H 



1 J 

3) 
43 

5) 
6) 
7) 
31 



FOR fi 
FOR fi 



I c 



MM) 
MM) 



GLASS FILTER" 
SILICON FILTER" 
FOR A (£ Mri) GERMANIUM FILTER" 
FOR fi LEAD SULFIDE DETECTOR" 
FOR THE U I SURE RESPONSE CURUE" 
FOR A SILICON DETECTOR" 
FOR #(33 *^f 4) " 
FOR #(13^C£3*^f43 " 



(93 FOR #(13*^(3)^(43 " 



. _ __ _ T5(D 

IF T5 ( Do 3 

PRINT 

PRINT 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT 

PRINT 

GOTO £190 

NEKT D8 

PRINT 

PRINT 

LET L=A4.--T 

REM L IS THE MAX WAUELEHGTH FOR THE GIUEN T IN DEG. C 

REM E3 IS THE UOLUMETRIC CORRECTION FACTOR 

REM E3 IS £1 (fiUERAGED) FOR R #44 BULB? WHERE 1£<E3<35 

IF L>6 GOTO £810 

LET Ei=L^-(E£»=E33 

GOTO £830 

LET E1 = 1.^(E3*U0.04) 3 

LET N9=l 

LET L£=K£^T 

REM THIS IS THE WAUELENGTH FOR MAK. RADIANCE DIFFERENCE-^tllCRON 

LET L4=D4.--T 
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£910 REM THIS IS THE HflUELEMGTH FOR MRX. PHuTOM EMISSION FOR T 

£9:J0 LET H=fll*^H£*^ I i *^*4) 

£950 REM W IS THE RfilHRNT EMITTRNCE IN i:wnTTS.^-CM*^^£) 

£970 LET m=C£«W*^R7*^El) 

£990 REM Mi IS THE SOURCE RRBIRNT POWER IN WATTS 

3010 FOR ItS=i TO N 

3030 LET Kfc.=0 

3050 LET Gl=F£(riS)-FlfIiS) 

3070 LET F3=We=W3=W4=WS=0 

3 £190 IF Fl (DS) >S GO TO 3130 

3110 LET Fi fD8i=S 

3130 FOR K=0 TO Gl STEP S 

3150 LET F3=FiiD8)+:K 

3170 GOTO 3190 

3190 LET 04=10000 

3 £ 1 i-.ET K3= C Hb*C4 ) ■•- i T'*F3 ) 

3£30 IF K3<8S GOTO 3£70 

3£70 LET K4=EftPCK3) 

3 £90 LET K5=K4-1 

3310 REM ##### T6 IS THE TRRNSMISSION FACTOR 

3330 IF F3<4.4 GOTO 3390 

3350 LET !Jl=C£.3118E08l-^(F35s*;i0) 

3s70 GOTu S65£i 

3390 IF F3<3. 1 GOTO 3450 

3410 LET Ul = 19.4StF3 

3430 GOTu 3650 

345£i IF F3<£.8 GOTO 3510 

3470 LET Ul=60 

3490 GuTO 3650 

3510 IF F3<.5 GOTO 3570 

3530 LET Ul=99 

355ti GuTO 3650 

3570 IF F3< . 3 GOTO 363iZi 

3590 LET Ul=(l£4.7)»^F3S5«a^3) 

3610 GOTLf 365ei 

3630 LET Ul=EXPi:33«F3).--(e40. 1£) 

365Gi LET !Ji=Ul.-"100 

3670 REM Ul IS FOR AN ORDINRRV GLASS FILTER 

3690 IF F3<14 GOTO 375© 

3 7 1 LET U£= ( £££94 ) .•■ C F3+8 . 77 3 '^^2 

373E1 GOTO 4070 

3750 IF F3<11.5 GOTO 3810 

3770 LET U£=34 

3790 iJUTu 407£i 

3810 IF F3<9.3 GOTO 3870 

3830 LET IJ£=(30£4)^-CF3-1.6)«5«£ 

385ki GOTO 4070 

3870 IF F3<9 GOTO 3930 

3890 LET U£=EKP(3*^F31x--f£„6736E10) 

3910 GOTO 4070 
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3930 IF" i-3<S GO I G 3999 

3950 LET U£=147.^-^EftF!:F3-7J 

3S'70 GOTO 4070 

3990 IF F3< 1 . £ GOTO 4050 

4010 LET U£=54 

■-l-03£i GOTU 4£'i70 

4050 LET u£=EKPf8»:F33.--(£73.43) 

4070 LET U£=U£.-a00 

4090 REM U£ IS FOR: Fl (£ MM 3 SILICOH FILTER 

4110 IF F3<i6 GOTO 4170 

4130 LET U3=S00.^-!:F3-111^«£ 

4150 GOTO 4310 

4170 IF F3<9 goto 4£30 

4190 LET lJ3=i:5£-£*^iF3~9j ) 

4£10 GOTO 4310 

4 £30 IF F3<£ GOTO 4£90 

4£50 LET U3=344-£SF3 

4 £70 GOTO 4310 

4£90 LET U3=EKPi;i5»;F3)/r£.81££Ein 

4310 LET U3=U3^100 

4330 REM U3 IS FOR R i:£ MM) GERMfiMIUM FILTER 

4350 IF F3<£. 1 GOTO 4410 

4370 LET U4=40S4.^'-iF3»;^5! 

4390 GOTu 4490 

44i!Zi IF F3<1 GOTO 4470 

4430 LET U4=100*^ (FS*^* OH. 4£4) ) .■-- 1 1 . 36983 

4450 GOTO 4490 

4470 LET U4=73«i:F3^*P3 

4490 LET U4=U4.-100 

4510 REM U4 IS FOR f\ LEfiD SULFIDE DETECTOR 

4530 IF F3<=85 GOTO 4590 

4550 LET U5=0 

4570 GOTu 4970 

4590 IF F3<=6£ GOTO 4650 

4 6 1 LET U5=£5 . 88-' ( 1 0*^^ ( £8^ ( F3- . 6 1 9998 3 3 3 

4630 GOTO 497'0 

4650 IF F3<.558 GOTO 471© 

4670 LET lJ5=Siri lEO. 944s«F3-3. 71757) *100 

469ti GOTO 497£i 

4710 IF F3<.555 GOTO 477© 

4730 LET U5=100.£ 

4750 GOTO 4970 

4770 IF F3<.49 GOTO 4839 

4 790 LET U5= C 1 00 3 ^^S I H f ( £0 . 944* i F3 3 3 -3 , 76993 3 

4810 GOTO 4970 

483*3 IF F3<.43 GOTO 4390 

4850 LET U5=(£0.83.-10*^*i£0^C.49001-F33 3 

4870 GOTO 4970 

4890 IF F3K.35 GOTO 4950 

491 LET U5= C 1 3 3 --" 1 0^ * 1 50^ ( . 46-F3 3 3 

4930 GOTO 4970 
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4950 LET M5=0 

4970 LET U5=U5.^-100 

4990 REM U5 IS THE UISURL RESPONSE CURUE 

5010 IF F3<.81 GOTO 5070 

5030 LET U6=18.5--"iF3*^*S3i 

5050 GOTO 5£10 

5070 IF F3<.57 i^OTO 5130 

5090 LET U6= C F3*^«,E' J ■•■" i. . 00656£ ) 

51 10 GOTO 5£10 

5130 IF F3<.3 GOTO 5190 

^j 1 50 LET 06= t F3:«»^ 1 6 1 .■■- i ? = 5E-06 ) 

5170 GOTO 5£10 

5190 LET Ub=0 

5£10 LET Ub=U6x-100 

5 £30 REM Ub IS THE RESPONSE OF fi SILICON DETECTOP 

5 £50 IF U6X1.0E--0S) GOTO 5310 

5 £70 REM 

5 £90 LET U6=0 

5310 IF USX i»0E-08) GOTO 5350 

5330 LET U5=0 

5350 IF U4>(1.0E~0S) GOTO 5390 

5370 LET iJ4=0 

5390 IF U3>fl.0E~08) GOTO 5430 

5410 LET U3=0 

5430 IF U£>(1.0E-08) GOTO 5470 

5450 LET U£=0 

5470 IF Ui>a.0E-0S:i goto 5510 

5490 LET U1=0 

5510 REM 

5530 REM THESE SPACES ARE FOR fiDDITIONflL TRRNS. CHLC. AND El-lPANSmN? 

5550 REM 

5570 REM 

5590 REM 

5610 REM 

56c£i IF T5(riS;i>l GOTO 5690 

5650 LET T6=U1 

567ti GOTO 6i3ei 

5690 IF T5fD8)>£ GOTO 5750 

5710 LET T6=U£ 

5730 GOTO 6130 

5750 IF T5i:ii8:i>3 GOTO 5810 

5770 LET T6=U3 

5790 GUTO 613ei 

5810 IF T5(D83>4 GOTO 5870 

583© LET T6=U4 

5850 GOTO 6130 

5870 IF T5i:ri8:i>5 GOTO 5930 

5890 LET T6=U5 

5910 GOTO 6130 

5930 IF T5fDS)>6 GOTO 5990 

5950 LET T6=U6 
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5970 GOTO 6130 

5990 IF T5CIi8)>7 GOTO 6050 

6010 LET T6=U3^U4 

60:30 GOTO 6i3£i 

6050 IF' T5(DS)>S GOTO 6110 

6070 LET T6=Lil*^U£'*-^U4 

6090 GOTO 6130 

6110 LET T6=Uls;U3^U4 

6130 IF T5iB8;i<=9 GOTO 6190 

6150 LET T6=T5!li8)---100 

6170 REM ##### THIS IS THE END OF THE FILTER TABLES 

6190 LET W£=i£«P»;CC*^»^e)*=H) 

6£:10 LET W3=C i:F3*^*;5)*^K5) 

6£30 IF T6X1.0E--08) GOTO 6870 

6850 LET T6=0 

6870 LET i;8=1.0E10 

6890 LET H4- i:W4+T6^i:W£-^"W3}^Z8) 

6310 LET W8=(WS+iW8.--H3)^Z8) 

6330 LET h8=N8+l 

6350 IF H8<>i00 GOTO 6550 

6370 LET nS=0 

6390 GOTO 655ei 

6410 REM ##### REMO'.JE THE REOUE GOTO TO PRINT FROM THIS LOOP ####### 

6430 IF k6=1 goto 6490 

6450 PRINT "F3"? "Ul" J "U5"? "U6"5 "U4" 

6470 PRINT 

6490 LET K6=l 

6510 PRINT F3jU1?U5jU6;U4 

6530 REM ##### THIS SPACE IS FOR LIST WITHIN THE K LOOP 

6550 IF R9$="Y" GOTO 6610 

6570 IF R9$="YES" GOTO 6610 

6590 NEKT K 

6610 LET W5=W4.--Z8 

6630 LET W6=W55«S*'f l.eiE09) 

6650 REM W6 IS THE SPECTRAL RRBIFMT POWER IN m^a^l^ci) 

6670 LET W7= i:W6«h7 ).-■>■ 

6690 REM W7 IS IN W^-STP. 

6710 LET D5=D3StW7.^-68 1 

6730 REM D5_IS IN LUMENS-^' STR ONLY IF THE UISURL CURUE IS USED 

675£i IF T5CIi8)=5 GOTO 679£i 

6770 LET Ii5=0 

6790 LET 04=W6^L4.-- i:HSC»^fl,0E-073) 

6810 REM 04 IS IN PHOTONS PER CM^ks^S j THE MONOCHRO. FLUK 

6830 LET 05=04*: f i . 0E~£4 ) 

6850 REM 05 IS PHOTONS .^ANGSTROM "^3 

6870 LET U£=U1 (IJ93 

6890 IF U£=0 GOTO 6950 

6910 LET U3=C5^LOGCU£3 

69:30 GOTO 6970 

6950 LET ',"3=0 

6970 LET 18=11 i:i!9:i 
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fc.yyy IF l£=y GOTO 7056 
7010 LET I3=C5SLnGCI£) 
703G1 GOTO 7070 
7050 LET 13=0 
7070 LET W9=C5*«I.3GCW7j 
7030 IF 13=0 GOTO 7150 
7090 IF U3=0 GOTO 7150 
7110 LET KS=C5*LOGiU£S=;iP3 

7130 IF U3O0 GOTO 7170 

7140 IF I3=ti GOTO 717£i 

7150 LET KS=0 

7170 LET nb=C5^L0G!04} 

7130 LET K3=C5»;L0GiWli 

7310 LET G3=(F£(D8i-Fl (Ii3)).--? 

7330 LET E6=L^-CG£+F1 CDS) } 

■ E9=£ 

B€.<E9 GO TO 7310 
7 £90 LET Efc.=B9 

7310 LET E£=EbKr r C1+E1)**4)-1) 
7330 LET E5=Eb*^SQRC£»^fE7^^ei ) 
7350 LET B3=SQRi;E£«^£+E5«*;£1 

7370 LET B4=1+E3 

7390 LET E8=100»^B3 

7410 REM E8 IS THE 'i ERROR OF W7 

7430 IF R9t-="Y" GOTO 11570 

7450 IF R9$="tES" GOTO 11570 

7470 PRINT 

7490 PRINT 

7510 IF N7=l GOTO 7770 

7530 PRINT"TOTflL POWER" ? "EMITTflNCE" ? "SPECTRAL" ? "TEMPERRTURE" ? "ERROR" 

7550 PRINT" IN WATTS "? "WATTS^-CM£" s "WRTTvSTR" ? "IN DEGREES "? " :^ " 

7570 PRINT 

7590 PR I NT "RAD I ANT POWER"?" RTTEN. "j" K^l "," U^ I. --WATT" ? "PHOTON-- A3" 

7610 PRINT" WATTS.-Cri£ "?" '; " 

7630 PRINT 

7650 PRINT" WAUELENGTH "?" UOLTS "?" AMPS "5" WINDOW "," MAX. " 

7670 PRINT"PEAK MICRONS"?" "?" "?" MIN. "?" MICRONS" 

7690 PRINT 

7710 PRINT "L(U).^L!:S)"? "La}/LfS)"j "LQU) -L CS) " ? "L C I ) .^"L (P) " ? "LUMEN--STR 

7730 PRINT 

7750 PRINT 

7770 PRINT Wl ? Ws W7? Tl i:D93 ? R5$ (D9) ? E8 

7790 PRINT 

7810 PRINT Wbj i00-100*:W4.^-W8;i£5«U£5 I£5KU£--W1j05 

7830 PRINT 

7850 LET N7=l 

7870 PRINT L?UUD93 5lUD93 jFUD8)?F£(D8) 

78^1 PRINT 

7910 PR I NT U3-^-W9 ? I S--" W9 3 K8^- W9 ? 1 3/06 5 D5 

7930 PRINT 

7950 PRINT 
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7' 970 NEXT DS 

7990 NE>^T Iiy 

8010 PRINT 

8030 PRINT "DO 'I'OU WFiNT TO PLOT HhThA-CRSUS WflUELENGTH" 

8050 INPUT R9$ 

8070 PRINT 

80"90 IF R9$="Y" GOTO 10350 

8110 IF R9$="YES" GOTO 1035© 

8130 PRINT "DO YOU WhNT TO RUN MORE DflTfl " 

8150 LET N9=0 

8170 INPUT m- 

8190 PRINT 

8810 IF n$="Y" GOTO 870 

8830 IF M$="YES" GOTO 87© 

8 £50 GOTO 10310 

8870 PRINT 

8890 PRINT 

8310 PRINT "HOW MflNY NEW DISTANCES DO YOU WISH TO CRLCULfiTE" 

8330 PRINT 

8350 INPUT N3 

8370 PRINT 

8390 PRINT" INPUT THE NEW DISTfiNCE RHD UNITS (IN)? (FT) ? (CM)! (M) " 

8410 PRINT 

8430 FOR J=i TO N3 

8450 INPUT R3(J!? R3$(J) 

8470 NE^T J 

8490 PRINT 

8510 PRINT"HOW MRNY POWER DfiTfl POINTS DO YOU HfiUE. 50 IS MfiX. " 

8530 PRINT 

8550 INPUT P4 

8570 PRINT 

85-90 PRINT"ENTER WflTTS--- (FT£) ? (CMc!) ? (MS) , (STR) . RT DIST. (CM) 5 (M) ? (IN) ? (FT) " 

8bl0 PRINT 

8630 FOR Jl=l TO P4 

8650 INPUT P5(Jl)j P5$(J1)! RKJD? R1$(J1) 

8670 NEftT Jl 

8690 PRINT 

8710 PRINT" INPUT (X) IN l.^R*;s«y„ poR YOUR DISTRNCE DEPENDENCY" 

8730 PRINT 

8750 INPUT PS 

8770 PRINT 

8790 LET P3=0 

8810 FOR J=l TO N3 

8330 IF R3$(J)="IN" GOTO 8938 

8850 IF R35:(J)="FT" GOTO 8978 

8370 IF R3$(J)="M" GOTO 9010 

8890 IF R3$(J)="CM" GOTO 9859 

8910 GOTO 8370 

8930 LET R3=R3 (J) -^S. 54 

895ei GOTO 9070 

8970 LET R3=(R3(J)*^(£.54)»;i£) 
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yyyCi 

9010 

903£i 
9050 
9070 

9090 

9110 
9 1 30 
9 1 50 
9 1 70 
9 i 901 
9£1© 

9250 
9 £70 
9 £90 
9310 
93301 
9350 
9370 
93901 
9410 
94301 
9450 
94701 
9490 
9510 
95301 

y ..J .._!f1 

9570 
95901 
96101 
96301 
96501 
9679 
96901 
971 01 



LET R3=100^R3CJ} 



UU 1 U 9@7y 

LET R3=R3!:J) 

LET P=3. 14159 

LET R8=l.--i;''.3»^*;p81 

FTiR J 1 = 1 TO P4 

IF RlSfJl)="0M" GOTO 9£90 

IF Rl$fJl)="IN" GOTO 9330 

IF R1S(J1)="M" GOTO 9370 

IF Rl$iJl)="FT" GOTO 9£50 

I F P5$ C J 1 ) = " STR " GOTO 9S901 

GOTO 85901 

LET U9=Ri fJlJ*C£.54j*^i£ 

GOTO 9390 

LET U9=R1 f Ji) 

GOTO 9390 

LET U9=R1 (Jl)*^£,54 

GOTO 9390 

LET U9=R1 !:J1);«100 

LET U£=U9*^*^P8 

IF P5S:fJli="FT£" GOTO 9519 

IF P5$i:Jl)="ri£" GOTO 9550 

IF p5^-i:ji:i="Gri£" goto 9590 

IF P5-5( Ji:i="STR" goto 9630 

goto 8570 

LET P5=P5fJll/'i:9£9,034) 

goto 9650 

LET _P5=P5fJl). ^10000 

GOTu 9650 

LET P5=P5i:ji:i 

GOTO 9650 

LET P5=P5CJi:i 

IF P5*:iJi) = "STR" GOTO 9716 

LET U3=P5«^U£ 

UOTU 9730 

LET U3=P5 
50 LET U4=U3»;R8 
>0 LET ri6= f U4S r 9£9 . 034 ) ) --^SB 1 
9770 REM Ii6 IS LUMENS ■■■ FT^^^a 
97901 LET U5=U4^ 10000 
9 8 1 LET 01 = 1 0^C5»^LO G ( 1 000Si. .14 1 
98301 LET 09= 1 0-*C5^LOG ( 1 tiEiti^^US) 
9850 IF P3=l GOTO 997© 
9870 PRirfr 

9890 PRINT "LUMEN^-FT£ %" INPUT WATTS "? "HRTT.^-CMS'S "WfiTT--M£" j " l/RS^^X " 
9910 PRINT 

9 930 PR I NT " NEW D I ST " ? " MW^^CMS " ? " MW-^MS " ? " DEM--CME " ? " DBM-^-ME " 
9940 PRINT 
9950 PRINT 
9 9601 PR I NT " '^■'■^^■'^■'^■■^-■^■'^^■'^■'^■'■^■'^'^■'^^^ " 



9 7 so 
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Ci97i3 PRINT 

9990 PRINT Dfo? P5 ( Jl ) 5 P55( Jl ) ? U4jU55 P8 

10© 19 PRINT 

1 0030 PR I NT R3 ( J ) 5 R3$ ( J ) ? 1 000»^U4 ? 1 Swy^US ? 1 ? 09 

10050 PRINT 

10070 PRINT 

10090 LEIT P3=i 

10110 NEKT Jl 

1 0i£0 PRINT " 

10130 NEXT J 

10150 PRINT 

10170 PRINT 

10190 PRINT 

10310 PRINT "DO YOU WANT TO STRRT RGfllN" 

10330 INPUT ri5$ 

10350 PRINT 

10370 IF N55="t" goto 87y 

10390 IF M55:="YFS" GOTO 870 

10310 STOP 

10330 REM THIS IS PLOTPTS 

10350 REM THIS PROGRRM PLOTS POINTS IN fl EAR TYPE GRhPH 

10370 REM INPUT MAY BE FROM FILE NfiMED S0R7 EY CHANGING 

10390 REM THE #0 IN THE INPUT STATEMENT TO #1 

10410 REM OTHERWISE THE INPUT IS FROM THE KEYBOARD = 

10430 DIM YfSSb)? 3(356) 

10450 PRINT" IF YOU WANT R LINEAR PLOT TYPE (IJ? OR (3) LOG PLOT" 

10470 PRINT 

10490 INPUT Pi 

10510 FILES SCR7 

10530 PRINT 

10550 PRINT"INPUT WINDOW LIMITS ailH) ? (MAX)? STEP (X). IN MICRONS" 

10570 PRINT 

10590 INPUT XIsXSjXS 

10610 PRINT 

10630 PRINT 

10650 IF Pl=£ GO TO 1079y 

10670 PRINT " INPUT (Y) LIMITS? (MIN. ) AND (MAX.)" 

10690 PRINT 

10710 INPUT Q1jQ3 

10730 LET M=50.--"(Q£-Qi) 

1 0750 LET Q3= ( Q£-iai ) --'50 

10770 IF Pl=l GO TO 11010 

10790 PRINT " INPUT LOG(Y) LIMITS? CMIN) =10»;*;m AND (MAX) =10*^^N1 " 

10810 PRINT " REM YOU CAN'T CROSS ZERO? AND DON'T FORGET THE SIGN" 

10S30 PRINT 

10850 PRINT 

10870 INPUT Q1?G;!£ 

10890 LET M=50.-"(Q3-Q1) 

1 090ei LET Q3= (Q3-Q1 J -•■•jP! 

10910 PRINT 

10930 PRINT "TYPE IN THE SCALE FfiCTOR TO INSURE NO ZERO CROSSING" 
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10950 PRINT "WHERE 3=il&^M&), E>=:. S=l? OR 10? OR lOO? " 

10970 PRINT 

liZi990 INPUT S8 

11010 PRINT 

11030 PRINT 

11050 PRINT 

11070 PRINT'TNTER YOUR CY) EQ. # <=9. IT IS TO BE ENTERED BEFORE RUN" 

11090 PRINT 

11110 INPUT Hb 

11130 IF He.>9 GOTO 11050 

11150 LET L7=i + ( (X£-yi)^-X3J 

11170 PRINT 

11190 PRINT 

li£10 IF P1=l GO TO 11270 

11330 LET S^=" i LOG PLOT )? ( SCALE FRCTOR) " 

11350 IF Pl=e GO TO 11390 

11370 LET Ss=" I LI NEAR PLOT)? i SCALE FACTOR)" 

11390 PRINT 

11310 PRINT 

11330 PRINT "M%TflEi9) ;Qi;TRBr3S}5S5?THEf631 503 

11350 PRINT 

11370 PRINT " ## TEMPERATURE 'S Tl (Ii9) ;R5$ iD93 

11390 PRINT 

11410 PRINT "aNCREMENTSl"?TABf£8)? "DELTA Y =" I TAB (331 1035 TAB i 491 5 SA 

11430 PRINT 

1 1 450 PR I NT TAB C 1 7 ) ? " I + 1 + 1 + 1 + 1 + 1 n " 

11470 FOR A=l TO L7 STEP 1 

1 1 490 LET F3= ( ft 1 +H3^ ( fl- 1 1 1 

11510 IF F3>0 GOTO 11550 

11530 LET F3=S 

11550 GOTO 3170 

11570 GOTO 11590 

11590 IF PI =3 GO TO 13090 

11610 LET JS=U1 

11630 IF H6=l GOTO 11970 

11650 LET .J8=U£ 

11670 IF H6=£ GOTO 11970 

1 1 690 LET J3=U3 

11710 IF H6=3 GOTO 11970 

11730 LET J8=U4 

11750 IF H6=4 GOTO 11970 

11770 LET J8=U5 

11790 IF H6=5 GOTO 11970 

11810 LET JS=U6 

11830 IF H6=6 GOTO 11970 

11850 LET J8=U3«U4 

11870 IF H6=7 GOTO 11970 

11890 LET J8=Ui»;U£-=«U4 

11910 IF H6=8 GOTO 11970 

11930 LET J8=U1»^U3«U4 

11950 IF H6=9 GOTO 11970 
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US 

11999 

1£010 

1E030 LE1 

1£050 LET Zi=ri*^(J8-Qll 



SO TO 
LET JS=Qi 
IF J8<Q£ GO 10 






jW 



=i-.!c: 



110 



1-P94 



1£079 IF Pl=l GC 

1£090 LET CI =0=4 

l£li@ LET E1=J8.--S8 

1£130 IF E1=0 GO TO 1£190 

l£i50 LET Ll=Cl«L0GCEi3 

1£170 GO TO 1££10 

l£i90 LET L1=Q1 

1££10 IF L1<Q£ GO TO 1££50 

1££30 LET L1=Q£ 

1££50 IF L1>Q1 GO TO 1££90 

1££70 LET L1=Q1 

l£e90 LET Zi=M*;i:Li-Qi:i 

1£310 LET Z=C1.5)+Z1 

1£330 LET M3=K3 

1£350 LET :K4=!Xl+M3sm-il) 

1 £370 PR I NT :^::4 ? TfiE ( 1 6 ) "? 

13390 FOR G=l TO Z 

13410 PRINT THB(17)5"y"; 

1£430 NEXT G 

1£450 PRINT TflBibSi; "I" 

1£470 NE^T H 

1£490 PRINT THE (173 5 "I- 

1£510 PRINT 

1£530 PRINT 

1£550 PRINT 

1£570 PRINT "DO YOU WANT fiNOTHER PLOT 

1£590 PRINT 

l£€.i0 INPUT C*: 

1£630 PRINT 

1£650 PRINT 

1£670 PRINT 

1£690 IF C5:="Y" GO TO 10450 

1£710 IF C*:="YES" GO TO 1045© 

1£730 iJUTO yl3ti 

1£750 STOP 

1£770 END 



— + 1 — 



— I +- 
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Sample Run of Optical 

Example #1 

This example will illustrate the conversion section of this program. Three 
light sources will be evaluated at two distances, 50 meters and 10 inches. 
The first source produces 0.00685 watts/steradians, the second one is 100 
watts/meter squared when 50 cm from it and the third is 1 watts/meter sq. 
when viewed at 25 meters. The 1/r squared dependency is used to determine 
how the intensity drops off with respect to distance. The converted inten- 
sities are tabulated on the second example sheet for the six conditions. 



Example #2 



In the second example we shall calculate the intensity of a 
that stimulates a lead sulfide detector. The detector has a 
placed in front of it and the bulb has a current of 100 mA 
it. The results of the calculations are shown on the fourth 
The temperature of the bulb at 100 mA was measured at 1432 
calculations were done over 1.5 to 3.5 microns to reduce ca 
This will induce almost no error for Germanium doesn't tran 
low 1.6 microns and the bulb has a glass cover that becomes 
microns. 



#47 light bulb 

germanium filter 
flowing through 

example page, 
degrees C. The 
Iculation time, 
smit light be- 

opaque above 3 



The plot on the last page represents the sensitivity of a silicon detector. 
The plot is from microns to 1.45 microns and the plot is normalized from 
to 1, left to right. Eight other similar curves are contained in the pro- 
gram. 
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RUN 



THIS PROGRAM CALCULATES BLACKBODY PROBLEMS 
IT IS VERY FLEXIBLE mD MAKES NO ASSUMPTIONS 
BE CAREFUL TO ENTER ALL UNITS AS INDICATED 

#### REMEMBER USE WITH THERMAL RADIATORS ONLY #### 



DO YOU ¥ANT CONVERSIONS CDi, OR BLACKBODY CALC« (2) 

'I 

HOW MANY NEW DISTANCES DO YOU WISH TO CALCULATE 
98 

INPUT THE NEW DISTANCE /^D UNITS CIN)* <FT)a (CM)* CM) 

'50^M 
>10*IN 

HOW MANY POWER DATA POINTS DO YOU HAVEo 50 IS MAXo 

•?3 

ENTER WATTS/<FT2)*<CMg)i.<M2)*CSTR)« AT DISTo CCM)i, <M)^ ( IN)* CFT) 

'o006855STRj,0*0 
'»100^M2*50aCM 
' l»M2^85i»M 

INPUT fX> IN l/R»^X« FOR YOUR DISTANCE DEPENDENCY 
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LUMEN/ FT2 INPUT WATTS WATT/ CMS 
NEW DIST M¥/CMa M¥/M8 



WATT/M2 
DBM/CM2 



DBM/M2 



4s09912E-10 .00685 STR 2s7/l000E-10 Ss74000E-06 2 

50 M 2«74000E-07 o00274 -65^6225 -25o6825 



K49603E-06 100 M2 
50 M sOOl 



loOOOOOE-06 
10 



01 



-30 



10 



3o74007E-05 1 M2 
50 M o085 



8o50000E-05 «S5 

250 -16^0206 



23o9794 



K58841E-05 o00685 STR l»06175E-05 o 1061752 

10 IN #0106175 i06ol752 -i9o73977 20^25023 



00579712 100 M2 o0387501 
10 IN 38^75008 387500#8 



387^5008 

i5o88273 



55^88273 



U449281 1 M2 09687519 
10 IN 968^7519 9687519 



9687o519 
29o86213 



69^86213 



DO YOU WANT TO STABT AGAIN 
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T! 1 1 s F' F;or:iF;'F!!i r >iL i:,.i,JL.,f'rn;;s FiLi'iCJcTiijij'r' i--i?i jr;i Fi't:; 

IT IS UFF:Y Fl.,i■>^^BLE Fir-ID ilRKJFS liU HSSUMPTiriMS 
BE CFlREFUL TO EiiTEF' FILL UrilTS FiS in[F!i::F!Trii 

#### FIEMEMBER USE 1^1 1 TH T! !ii.F11F!L PHTHirTFiF:"? FH !L V ##i* 



[iFi YCiU FiFlliT CUI'liJF F?F;ICi! !S (ij? [lE Ti FiCEBFlDY F:hiL.,C„ id 



Unu l-lFlMV rFJIPEPFFTUPr S UU VOLl MFiifl FFi FUri. IM IS 



UU TiJl 



^•iriT 



■•1 IT' THF 



PPPTl iC 



i:,, ! ii L,.r: ! 



i „ FiFiF,'"-; 1 



YCiiJ i.JISI-i TTJ iriF'UT i irjl TFH:;;-: RPT! CUFiF;! 



iriPUT TEIi'lPERFnilPE (nF:F;pF ESj J SFhLj 
FirtF! (Uu! TSj ? Ti-IEii EiMPS s 



5 I F ! 1 n : I 1 I. [■■ i 



•?i43P? C? 1 .::;iS75 . 1094 

li'lPUT THE jiUiTFiEP FiF SPECTPFlL. LJIiiiJOFiS YOU wFiUI" F:FlLj::ULFiTEl! 

?1 



:«^*^ the: ("•) sFiijiJi II 

•"■J ,5? 3,5? S 



TV PC" I" pi i 



■iFiS. IF! ■ 
-;PECIFiL 1 1ST 
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The following abreviations were used in this listing. They are as follows: 

V = Volts ! = Amps A3 = Cubic Anstroms Window Min = Low Freq. Cutoff in Microns 
Max Microns = High Freq. Cutoff of the Filter, if any, in microns 
L( ) = log ( ) P = Photons STR = Steradians 



IM MFlTTS 

RHlJlFirn" prjiJI:!? 
HFlTT':::/-CPi;E: 

WF!Utii::riGTi-! 

F'EFiK' MIi::PiJM'r. 



.::;i:il6,-'59 
311 IMS 



^iT'TS/F 



FlT'TEJ-i. 



J ,., i :;:; 



i I T 'I ,.^i i 



'::'6 1 ::! 



SF'EirTRFil... 
!FiTl".--""';:yTT? 






TEllF'EIRfiTiJf 
Ii1 TJEQREF: 

ij»:t.i,,,ihTT 



iiirrnr 

hi Til 



tR'F'OF' 
FHOTOrF-Fi: 

MICRFiiiS 
[J lME:ri-'STl 



9 i 1 6 1 S 



IlFi YFii.J i-lfWn TO PlfjT nHrH/1.iE;F'F;!iS !arF.JF'LFrlG 
^^^(THIS IS Fi SIRICOri DErTEC'rRR'S REISPOriSR • 



■■i-|F ! FifiKi 



IF YCiiJ WFiliT Fi LiriEflP PEFiT TYPE ( 1 ) ? OR 



LFiF, PLFiT^ 



INPUT HI NIiOW LIMITS (rilMJ ? (ripy) ? STEP O 

?0j 1.5? =05 

IMPUT (Y) LIMITS? (MiriJ HMD (MFiyj 

?9? 1 

Er-rrER YOUP (YJ F-Q„ MUMBER. it is EMTEREIi 



ilCRuMS 



IwL '•■-'! 
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Tl:TMF'f-J?F!lL!F?E: 



i: Yrir-Tfii:::. j 



■i-i 



-T-- -+■• 



.4 



. '-'Ti 
1 

1 . 25 

J . 1 

1,1 '5 

1 . £ 

■i -J KT.- 

I D C... J 

1.3 

1 , 35 

1.4 

1 . 4:::i 



.„, [_„ 






[iO YOU [.JFiin' fihlOTHFI? FtJjT' 
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PLANET: 



Planet is a very interesting program. It will list the Altitude and Azimuth 
of the Sun, Moon and the four (4) brightest planets every hour, for a 24 hr. 
period; for a specific latitude and longitude. 



USERS 

Amateur astronomers would be greatly aided by this program. Anyone who plans 
to do navigation at night could also make good use of this program. 



INSTRUCTIONS 

The 6HA and DEC for the six (6) bodies are entered for hours, for the day of 
interest in lines 110 and 120. These values are obtainable from a nautical al- 
manac. The program is then run and all additional data is automatically prompt- 
ed. List the program for detailed program information. 

L I MITATIONS 

Line 690 contains a Restore statement. This program executes in standard Basic. 
The source code is 5K Bytes long and the program will execute in 8K Bytes in 
most systems. 
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r Lni if.. 



liZiy PRINT " 16 HpRIL 75 GMT £4" 

1 1 @ DRTh 1 S0 ? 1 . £ 5 i 43 .£:?££. 3 ? ££8 . i j - 1 1 . 3 

1£0 DRTh 197.6? 1.8? 100.4? ££.b? 115.9? £1 

130 PRINT 

140 PRINT 

150 PRINT "SUN nOON fiND PLANETS LOCATOR" 

160 PRINT "LIST LINES 14© TO £30 FOR DflTR DESCRIPTIONS" 

170 REM TWELUE NUMBERS IN DATA LINE 

180 REM NUMBERS ARE GHR & DEC OF 

190 REM MENUS MARS JUPITER SATURN SUN £ MOON 

£00 REM DATA LINE IS 110 

£10 REM ONLY WHOLE DEGREES USED 

££0 REM DATA IS TAKEN AT GMT 

£30 PRINT "GMT IS IN SINGLE HOUR" 

£40 PRINT "WEST LONGITUDES - " 

£50 PRINT " SOUTH LATITUDES -" 

£60 PRINT "DATA ORDER IS SUN MENUS MARS JUPITER SATURN MOON" 

£70 PRINT "GMT IS TIME AT O MERIDIAN WHEN FIRST PRINT OCCURS' 

£75 Y=57. £957795 

£ 77 Y 1 = 1 . 57yT''963£ 

£80 PRINT 

£90 PRINT "L IS LATITUDE" 

300 PRINT "A7 IS LONGITUDE" 

310 PRINT " T9 IS GMT" 

3£0 PRINT "D7 IS DAY OF MONTH" 

330 PRINT " L?A7?T9?D7" 

340 INPUT L?A75T9?D7 

350 Z=AESfR7^-15l 

360 Zl = INTi:ZJ 

37a Z£=Z-Z1 

380 IF Z£>.5 GOTO 400 

390 GOTO 410 

400 Zl=Zi+l 

410 IF A7<0 GOTO 430 

4£0 GOTO 440 

430 Z1=~Z1 

440 T9=T9+Z1+1 

450 IF T9<0 GOTO 47© 

460 GOTO 490 

470 T9=T9+£4 

480 D7=D7-1 
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490 T9=T9*i£i0 

500 IF T9>£400 GOTO 5S0 

510 GOTO 540 

5£0 T9=T9-S40ei 

530 D7=l!7+i 

540 J7=L 

550 PRINT 

5fc.0 PRINT 

570 PRINT " BOHY ALT I TUBE DEGREES RZIMUTH DEG 

580 PRINT ■■ 

590 IF 0>i4 GOTO 690 

600 READ H 

610 C£=H+fl7 

6£0 REhD D 

630 W=W+1 

A 40 IF [.J=6 GOTO 660 

650 GOTO 680 

6 6£i 0=T^ 1 4 ,. 99 1 6 

670 GOTO 770 

680 GOTO 78t"! 

690 RESTORE 

70£i W=0 

710 READ R 

7£0 REfiD D 

73y W=W+1 

740 IF W=6 GOTO 760 

750 GOTO 770 

760 0=T*-:i4=49 

770 C£=H4-0+fl7 

780 C3=ri---Y 

790 0=T*^15 

800 IF C£>i080 THEN lOOO 

810 IF C£>900 THEN 10£0 

8£Gi IF C£>7£0 GOTO 880 

830 IF C£>54£i GOTO 900 

840 IF C£>360 GOTO 9£0 

850 IF C£>i80 GOTO 94Hi 

860 IF C£<180 THEN 960 

870 IF C£<0 THEN 980 

880 >^£=7£0"C£ 

890 GOTO 1030 

900 X£=7£0-C£ 

910 GOTO 1030 

9£0 X£=360-C£ 

930 GOTO 1030 

940 X£=360-C£ 

95ei GOTO 1030 

960 X£=-C£ 

970 GOTO 1030 

980 ;-£=-C£ 

990 GOTO 1030 
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1000 X£=iy80-C£ 

1010 GOTO 1030 

1 0£0 >■;£= 1 080-C2 

1 030 X4=HES ( H2 ) --"(' 

104© IF X4>Y1 THEN 1060 

1050 IF rt4<Yi THEN 1080 

1060 K3='d-'-''(' I — X4 

1070 GOTO 1090 

1 080 K3=a4 

1090 B=HBS CX3J 

1100 Bl=r;3 

1 1 10 B3=J7^-Y 

1 liii p=RTN ( (SIN (E) s^COS CBl ))^(. 1- (SIN (E) «COS iEl 1 ) t83 1 . 5) 

1 140 K=hTH i (SIN CEl ) .-"COS (P) ) .^- 1 1- (SIN ( El 3 -■-COS CP) ) t£lt. 53 

1 1 50 K6=F!BS f K ) 

1160 Kl=flBS!KJ»;Y 

1170 IF X4>Y1 THEN 1850 

1180 IF y4<Yl THEN 119© 

1190 IF K1>90 THEN 181© 

1800 IF KK90 THEN 183© 

1810 K8=180--K1 

1880 GOTO 1300 

1830 K8=Ki 

1840 GOTO 1300 

1850 IF Kl>90 THEN 187© 

186© IF KK90 THEN 189© 

1870 K8=Ki 

1880 GOTO 13ti0 

1890 K8=180-K1 

1300 IF K>© THEN 138© 

1310 IF K<0 THEN 134© 

1 380 K3=K8 

1330 GOTO 135© 

1 340 K3=-K8 

1 350 K4=K3x-Y 

1 360 E4=-B3 

1370 G1=K4+E4 

1380 G8=HESi;G13 

1 390 G5=G8^Y 

1 41710 h=HTN ( i COS C P 1 ^COS f G£ 3 3 --" C 1 - f COS ( P 3 *'COS C G£ 3 3 1£ 3 1 . 5 3 

1410 H1=H^Y 

1480 H3=INT!:H13 

1430 H4=H1-H3 

1 440 H5=H4^60 

1450 IF ><4>Y1 THEN 147© 

1460 GOTO 1480 

1 470 H=-H 

1 480 P5=P 

1490 Z=HTHf fSINCP53 /■C0SiH3 3.^(l-(SINiP53 ^C0SiH3 3t£3t.53 

1510 Z1=Zs;Y 
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1 540 K8=K£--"t' 

1550 IF ri3>y THEN 1570 

1560 IF n3<:0 THEN 1590 

1570 IF K8>E7 THEN 1610 

1580 GOTO 1590 

1590 IF Zl>90 THEN 1630 

16ei0 IF ZK90 THEN 1650 

1610 IF Zl>90 THEN 1650 

16£:w IF ZK90 THEN 163© 

1630 Q1=Z1 

1 €^40 GOTO 1660 

1660 IF B3>0THEN 1680 

1670 IF B3<0 THEN 1740 

1680 IF :<£>0 THEN 1700 

1690 IF X£<0THEN 1730 

1700 n5=Ql 

1710 GOTO 1790 

1730 D5=360-Q1 

1730 GOTO 1790 

1740 IF y£>0THEN 1760 

1750 IF_X£<0THEN 1780 

1760 H5=180~Qi 

1770 GOTO 1790 

1788 IJ5=180+Q1 

1790 GOTO 1800 

1800 B6=INTCU5) 

1810 IF B6>360 THEN 1830 

18£0 GOTO 1840 

1 83ti B6=D6-360 

1840 IF W=l GOTO 1900 

1850 IF W=£ GOTO £0£0 

I860 IF H=3 GOTO £068 

1870 IF |J=4 GOTO £1£0 

1880 IF H=5 GOTO £178 

1890 IF IJ=6 GUTO £££0 

1900 PRINT 

1910 PRINT 

1 9£0 PR I NT ■' DLST " 5 T9 " Dfl V " ? D7 

1930 PRINT 

1940 Ly=0 

1950 IF H3<0 GOTO £800 

I960 PRINT "SUN"!H3?D6 

1970 IF H3>8 GOTO 1990 

1980 GOTO ££100 

1990 L8=l 

£000 IF 0>14 GOTO 710 

£010 GOTO 590 

£0£0 IF H3<0 GOTO £840 



374 



£040 
£050 
£060 
£070 
u-:080 
£090 

£ 1 00 

£110 

£: 1 30 
£140 
£ 1 50 
£ 1 60 
£170 
£180 
£190 
££00 
££10 

C i~. CkJ 

££30 
££40 
££50 
££60 

££70 
££80 
££90 
£300 

£310 
£3£0 
£330 



30 PRIMT "MENUS" ?H3 3 lib 



IF_0>i4 GOTO 710 

GOTO 590 

IF H3<0 GOTO £090 

IF L8=i GOTO £090 

PRINT "riHRS"?H35li6 

IF 0>14 GOTO 710 

GOTO 590 

IF 0>14 GOTO 710 

IF H3<0 GOTO £150 

IF L8=l GOTO £150 

PRINT "JUPITER" ji-13 5 Db 

IF U>14 GOTO 710 

GOTO 590 

IF H3<0 GOTO ££00 

IF L8=l GOTO ££00 

PRINT "SATURN" ?H3? life 

IF 0>i4 GOTO 710 

GOTO 590 

IF H3<0 GOTO ££40 

PRINT "mON"i.H3jIi6 

0=0+15 

T=T+1 

IP T9=>£:400 GOTO ££90 

GOTO £310 
J9=j9-£4gy 

117=117+1 

IF 0>345 GOTO £330 

GOTO 5901 

END 
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PSDs 

DESCRIPTION 

PSD stands for Power Spectral Density and that is what this program calcu- 
lates. This program is extremely versatile as it allows the use of sliding 
windows, windowing and bit integrating on one or both of the windows. One 
of the most unique features of this program (not found in private industry) 
is it's ability to compute two windows simultaneously without Any loss in 
accuracy. This program is very compact and efficient and can only be enhan- 
ced by the addition of file input and output statements. This program com- 
putes FFT transforms and inverse transforms as well, thereby making it use- 
able for computing high speed convolutions of complex systems. 



USERS 

Anyone who needs or desires to examine data in the frequency domain will 
have use for this program. The dedicated audiophile who wants his equipment 
to sound good is one example of a user. Noise pollution can easily be exam- 
ined in the frequency domain with the emphasis on reducing noise, selective- 
ly. Other possible users could be persons interested in modeling analog sys- 
tems of things such as: Missiles, or aircraft, or marine vechiles, or even 
automobiles. The auto mechanic can use this program to look for troubles be- 
fore they happen. For example, if the noise of a car engine is viewed in the 
frequency domain the various interengine components can be seen; if one of 
them is starting to wear out it's frequency components will shift well before 
failure can be detected by other means. 

INSTRUCTIONS 

The program is self contained and will prompt the user for all required in- 
formation. The program can be listed if additional program information is 
desired. 

LIMITATIONS 

The source code is 5K Bytes long. Execution length is a function of the size 
of the matrix set in the DIM statement in line 190. With the DIM set at 256 
points, execution will require 25K Bytes in most systems. 
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180 REM THIS IS PSn 
lie REM THIS IS IH BASIC 

lee REM 

130 REM 

140 REM IT IS R F'0HE;F' SPECTRAL DEIHSITY PROGRFir-L 

150 REM IE SI IS IT HOES THE TIME HOMFiIM TO PREQ. TRnMSPORM 

160 REM IE SI IS 1 IT DOES THE REUERSE TRRNSEORM. 

170 REM INPUT SHOULD BE SYMM. FiEOUT THE PT, ( 1 +M.--£ 3 

130 REM FOR FURTHER INSTRUCTIONS SEE FILE 

190 DIM Xi£5fc.) ? V(E'56l jSiSSb) ?T(£56) jUC 19£) ?Zi:bl£3 

£00 PRINT 

£10 PRINT "THIS PROGRHM CnLCULFiTES POWER SPECTRRL DENSITIES" 

££0 PRINT "FIND FAST FOURIER TRRNSFORMS. " 

£30 PRINT "IT USES TWO SLIDING WINDOWS AND fiUERRGING & WINDOWING." 

£40 PRINT 

£50 PRINT 

£60 MAT >=:=ZER 

£;70 MAT Y=ZER 

£S0 MAT Z=ZER 

£90 PRINT 

300 PRINT "HOW MANY DATA POINTS DO YOU HRUE?" 

310 INPUT N 

3£0 PRINT 

330 PRINT "ENTER YOUR DATA " (x & Y matrix; if both differ put X first) 

340 FOR 1 = 1 TO N (followed by the Y data.) 

350 INPUT Z(I) 

360 NEXT I 

370 PRINT ^ 

390 PRINT "INPUT THE NUMBER OF BITS PER WINDOW. "(X & Y matrix are the same size) 

390 PPINT "THEN TYPE H i 1 ) ? FOR AUERAGES" 

400 PRINT "OR A (£), FOR NO AUERRGING. " (^he X & Y matrix are averaged together) 

410 INPUT A?G9 

4£0 S1=0 

430 PRINT 

440 Ci=.5 

450 Tl=l 

460 REM HANN WINDOW C1=.5j T1=1. HAMMING WIND. C1=.46j T1=1.17 

470 AS=L0GiA1 

480 R3=A2--" ( LOG ( £ ) ) 

4 9 R4= I NT C A3+ . I ) 

500 REM R5 IS THE # OF SAMPLES TAKEN PER SEC. 
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510 REM UNLESS SPEC I EI EH ELSEWHERE 

5£0 h6=R.^'£ 

539 T=l.'-H 

540 REM T IS THE SflMRLE RfiTE IN SEC. 
550 REM T < (PS^.S) 

560 REM WHERE F IS THE LARGEST FREQ. PRESENT IN THE TIME DRTfl 

5r-'ti F6=H*T 

589 Fi=R6./F6 

5 90 h9= f i + C H.''£ ) 1 
600 PRINT 

610 PRINT "INPUT THE STARTING BIT RND # OF BITS TO BE SKIPPEB. " 

6£0 INPUT S£?S3 

630 E=(S3»^fH-l)+S£l 

640 P=3,. 14159 

650 We=(A-l) 

660 FOR 1=1 TO A 

670 W4=rse+(l-liss3) 

680 !■■■!( 1 3 =Z(W4) 

690 NEXT I 

700 REM THIS IS THE K MATRIX INPUT 

710 PRINT 

720 PRINT "BO YOU WANT WINuOWING ON THE DRTR?!:i FOR YES? £ FOR NO)" 

?i jrwIJ^GOTO 780 ^^°' ^^^ ^ '^'^'-'^ ONLY) 

759 FOR 1=1 10 A 

760 Kil)=Kil}'^Cl^ni+SmiF^(I~l]yVm ) 

770 ne>=:t I 

780 PRINT 

790 PRINT 

800 PRINT "HOW MANY BITS BO YOU WANT TO SLIBE THE Y MATPIK'"" 

810 INPUT PI 

8£0 FOR 1=1 TO A 

830 W4= C S£+ f I -- 1 ) *^S3 ) 

840 Y!:i3=zi:w4+Pi:i 

850 NEXT I 

860 GOSUB 1£50 

870 IF S1>0 GOTO 1150 

880 IF (G9--i:i=0 GOTO 10£0 

89ti N1=0 

900 PRINT 

910 PRINT " PSB i:#-i:i K MATRIX Y MATRIX START +SLID' 

9£0 PRINT 

930 N£=0 

940 FOR 1=1 TO A9 

950 A5=Y(I) 

960 A7=Xi:i3 

9 70 N3= I NT ( S£+ . 5+ ( 83^ C I - 1 ) ) 3 

9 80 N4= I NT r N3+P 1 + , 5 1 

9 90 PR INT 1 1 - 1 :i ? A7 J A5 ? N3 ? N4 

1080 NEXT I 

1010 GOTO 1150 
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1 0£0 N1=0 

1030 PRINT 

1048 PRINT " TWO !.JINriOW fliJERflGE" 

1050 PRINT 

1060 PRINT ■■ PSB (#-1) X MHTRIX START +SLID" 

1070 PRINT 

1080 N£=0 

1090 FOR 1=1 TO h9 

1 100 fi7=iK(I3+Y(Ii ).■■£ 

1 1 10 N3=INT i:se+. 5+ f 33*; (1-1)1) 

11£0 N4=INTCH3+Pl+.5) 

1130 PRINT (I-l) jFi??N3?N4 

1140 NEXT I 

1150 PRINT 

1160 PRINT "IF YOU WISH TO REUSE YOUR OLD DFiTfl TYPE fi C 1 ) j ELSE C£) 

1170 INPUT W6 

1180 IF W6=£ GOTO 1£00 

1 1 90 GOTO 370 

1£00 PRINT 

l£i0 PRINT "TO ENTER NEW DflTfl TYPE fl i.l) , TO STOP TYPE H (£) . " 

1££0 INPUT W6 

1£30 IF W6=l GOTO £30 

1£40 GOTO £440 

l.£50 REN THIS IS THE DOUBLE SUE 

1£60 F!9=i:i+i:fl.-£) ) 

1£70 GOSUE 1390 

1£80 FOR K=£ TO fl9 

1£90 L=C£+fl)-K 

1300 flS=XCI<J+X!:LJ 

1310 e=:^:!K)-X!:l) 

13£0 C=Y(K3+Y(L) 

1 330 D= Y ( K ) -Y t L J 

1 340 H i K ) = i fl8*^H8+D*^D ) ^ ( . £5 ) 

1 350 Y I'. K ) = ( C*C+E*;E )'^{. £5 3 

1360 NEKT K 

1370 REM Kil) IS THE D.C. LEUEL. 

1380 RETURN 

1390 REN THIS IS THE FFT SUE. 

1400 REM SI IS THE TRANSFORM^ I HU.TRRNS. FLAG 

1410 REM 81=0 FOR TRANSFORM & =1 FOR INU. TRANS. 

14£0 REM X() IS THE REAL & Y() IS THE IMAGINARY MATRIX. 

1430 REM Uii IS THE COSINE TABLE. 

1440 L1=0 

1450 IF 81=0 GOTO 143© 

146ti 88=6 

1470 GOTO 1490 

1480 88=7 

1490 IF i:A4-Ll)=0 GOTO 175© 

1500 L1=A4 

1510 N5=t£»;;«A4).-^£ 

1515 H1=£5«N5 
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15£0 
1 530 
1540 
1 550 
1 560 
1570 
1580 
1 590 

1600 

1610 
16£0 
1 630 
1640 
1 650 
1 660 
1670 
1 630 
1 690 
1 7ti0 

1 ~' 1 i7! 

i I i ■-_' 
1720 
1730 
1 ,-'40 
1750 
1 760 
1770 
1 780 
1790 

1 800 

1810 
1 830 
1 830 
1840 
1850 
I860 
1 870 
1880 
1890 

1 900 

1910 
1930 
1930 
1940 
1 950 
I960 
1 97ti 
1980 
1 990 

£000 

£010 

£0£0 



ri6=fl+N5} 

N7=i:r-i6+i) 

F=H1 

P£=t£*;p).--F 
N3=ri5+1 
N9=H8+1 

M=iNTC i:hi.--4:i+.13 
rii=M+i 

M£=(i;3«M:i+n 
Lii:i;i=i 

ui:r'ii:i=0 

Ui:ii83=-1 

U fp1£) =£1 

FOR I=£ TO ri 

F£=I-i 

T3=F£*;p£ 

T3=C0SCT3) 

U C I ) =T3 

Il = I+ri5 

I£=M9-I 

U C 1 1 :i ="T3 

UfIS3="T3 

t-EKT I 

L=i 

FOR -1=1 TO fl4 

I5=L 

L=£SL 

G 1=H1 -■■■!_ 

G£=G1 

FOR 1=1 TO 15 

G3=CI-1)*^G1 

G4=G3+ 1 

G5=G4+ri 

W1=U(G4) 

IF S8=7 GOTO 1890 

w£=-ui;g5:i 

GOTO i 900 
W£=UlG5J 

FOR K=l TO G2 
I 1 =K+G3 
I£=I1+G3 

I3=I£+G1 

I4=ii+r-i5 

G6=Wlsty(i3i-W£sVi:i3i 

REM G6 IS THE REAL HMD G7 

G7=W£»^K f 13) +W1«V i 13) 

Srii)=K(I£)-i-G6 

Ti:il)=Yi:i£)+G7 

Sf I4)=X(I£)-G6 

Ti:i4)=Yi:i£)-G7 

NEXT K 



IS THE INfiGIMRRY MATRIX, 
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£030 MEXT I 

£040 FOR K=l TO HI 

£050 x(Kj=si;k:i 

£060 YiK)=Ti:K) 
£070 NEXT K 
£080 NEXT J 
£090 IF Si=0 GOTO £140 
£100 FOR K>1 TO HI 
£110 Xi:K)=Xi:K).^£ 
£1£0 Y(K)=Y(K:i.--£ 
£130 NEXT K 

£140 IF y.l = l GOTO £1S'0 
£150 FOR K=l TO HI 
£160 X(K)=XfK).4H5 
£170 Yi:K)=YfK).4-i5 
£180 NEXT K 
£190 PRINT 
££00 PRINT 

££10 PRINT "FREQUENCY EfiNDWIIiTH = "JFi;" HERTZ." 
£££0 PRINT 

££30 PRINT "FREQUENCY PER BIT = "JFl^NS!" HERTZ." 
.££40 PRINT 

££50 IF Sl=l GOTO £31© 
££60 PRINT 

££70 PRINT "TYPE H ( 1 ) TO PRINT THE FFT OR ffi) FOR THE PSD ONLY" 
££80 INPUT U 
££90 PRINT 

£300 IF U=£ GOTO £430 
£310 PRINT 
£3£0 PRINT 

£330 PRINT " FFT (#-1) CREflL) X riflTRIX Y MATRIX" 
£340 PRINT 
£350 FOR K=i TO N6 
£360 PRINT (K-i1 jXCK) jYfK) 
£370 NEXT K 
£380 PRINT 
£390 FOR K=N7 TO HI 
£400 PRINT (K-l) jXiK) jYCK) 
£410 NEXT K 
£420 PRINT 
£430 RETURN 
£440 END 



381 



Sample Run of PSD 

The data is entered into the program during execution. For this example 32 
data points are entered. These 32 points represent 2 cycles of a square 
wave. These 32 data points will be saved in this sequence throughout the 
program so that different characteristics of the data may be studied. These 
32 data points are entered on the first example page. 

The first run uses 16 bit windows and uses HANN windowing on the X data only. 
The second page lists the FFT of every other data bit. This X and Y matrix 
listing represents the complex interactions of the two inputs, one with win- 
dowing and one without. The PSD for the two conditions is shown at the top 
of the third example page. The or first bit (#-1) represents the D.C. level 
of the transformed window. The second and sixth harmonics are predominate in 
the PSD calculations. Notice the slight effect windowing has on the X matrix 
when compared to the Y matrix data. The original data is unsymmetrical . 

The data is reused again with the two windows still set at 16 bits in length 
but this time no windowing is used on the X data. These 16 data points now 
represent one cycle of a square wave. The X and Y data points are set equal. 
The PSD of this is shown at the top of example page 4. It can be seen that 
both PSD's are equal and represent just the odd square wave harmonics. This 
test shows that two windows may be calculated simultaneously without loss in 
accuracy and also that the program is working properly. 

At the bottom of this page the data is run again, here the Y data is slipped 
7 bits ahead of the X data/ Again both PSD's are equal indicating proper op- 
eration of the program. 

On the fourth and final run of the data the Y data is slipped 32 bits ahead 
of the X data. As there were only 32 bits of data that means all of the Y 
matrix will be zero. When the PSD is calculated we find that the X matrix is 
the same as previously calculated, however the Y matrix is approximately zero, 
which is as it should be as the input data was also zero. There are a number 
of interesting calculations that can be performed on test data to check out 
the operating characteristics of FFT's and PSD's, this has been one of them. 
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THIS PROGRFin CRLCULFlTES POWER SPECTRFlL. DEMSITI ES 

FIND EFlST PniJRIER TPFlNSFORMS» 

IT USES TWO SLiniWG WIMDOWS FlNH flUERFlGIHG & WINnOWIHG 



HOW WflNY riflTFi POINTS DO YOU HflUE" 



NTER YOUR DFlTfl 



?1 

■?:b 
?l 
?l 
?i 
■?y 
?i 
?i 



w 

■~'0 

?o 

?0 
?0 
?0 
?0 
?0 

?i 
?i 
?l 
?l 
?l 
?l 
?l 
?l 

?0 
?0 
?0 
?0 
?0 
?0 
■"•0 
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IliPUT THE riUMEER OF BITS PER HiriTiOW, 

THEri TYPE H ( 1 J J F Lip hUERhGES 

OR Fi (3)5 EOR riri FiLiRRRGING. 
716, P 



iriPUT THE STiHRTING BIT fli-ili # OP BITS TO BE SKIPPEB. 
?li.c: 



DO YOU HRriT HINBOIIIHG 0\\ THE IihTH'' ( 1 POR YES? £ Eup HO) 
?1 



KM MHtiY BITS DO YOU '■JfiHT TO SLIDE THE Y fIflTRi; 
•'0 



EREQUErCY EHHDWID1 



EREQUEHCY PER BIT 



HEPT2 
HERT2 



TYPE n a) TO PPIMT THE PET OR r£) POP THE PSD ONLY 
?1 



FTT (#-1) iRERL) X MHTRi: 



HHTRIX 



M 



10 
1 1 



14 



.3133496 


-= 0669£49 


. 3877707 


.0114945 


c 0036355 


. 0£9i014 


■ . 0970S9S 


. 0£63£9 


.00711££ 


.0£63£9 


-.3041371 


. 0391014 


. 0036355 


.0114345 


■.81933E.6 


. £i669£49 



. 'iioC -::',;■.:•■„" 

— . 7413636 

. 069£03 

. K-^- 1 y !"- '-T r' f 

. 009 1 374 

.016157E 



-. 0161573 
-. 1677317 
-.0091374 
-.0107477 
-. 069£03 
.£413636 
-.0373335 
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PSD 



(#-1) 



XMflTRi; 



Y MHTRi:^^: STRRT +SLID 



8183496 

VH;i58?c:7 
r;88000'5 
ij@49£:l£ 
00Ul£87 
ki0093 1 3 
04""0018 
0009543 
'5„0'58£7e-05 



■ „ 1 t.840r- 1 9 
4 £6? 7 7 
;.47334e;-19 



'-I 



= y7 



'5525e.~SB 1 1 

££34 13 

1.£1973e-19 15 

f 1 1 7 



1 1 



t.Z 



IF YOLl HISH T0 REUSE YOUR OLD DFlTfi TYPE Fl i H j ELSE i:£) 

?-l 

RETPRMSMIT LRST LIME 

1 

It-IPUT THE NUMBER OF BITS PER NIMnOW. 

THEN TYPE H i 1 ) ? FOR flUERflGES 

OR. fl (£)? FOR HO HUERhGING. 
?16j£ 



INPUT THE STARTING BIT FIND # OF BITS TO BE SEIPPEIi. 



DO YOU WANT NIHDONING OH THE DRTfl'"' f 1 FOR YES? £ FOR MO) 



HOW Mflr^Y BITS DO 'f'OU WRNT TO SLIDE THE Y MRTRiy- 
?Fl 



FREQUENCY ERHmJIDTH 



FREQUENCY PER BIT 



8 HERTS 
1 HERT2 



TYPE fl (1) TO PRINT THE FFT OR CE) FOR THE PSD ONL' 

:' (i:. 



385 



jM I !-■ i ;-:. 












•'OU WISH rO REUSE" VOUP OLD DRTfi TVF'F H (Us ELSF (£■) , 



'1 



IriPUT THE riUMtCR OF BITS PER WIMTOLL 

THEM TYPE H (1)? FOP hIJERhGES 

OR fl !£) ? FOR NO HiiERFlGING. 

?1fc.5,2 



iriPUT THE STFlRTiriG BIT FlMIi # OF BITS TO BE SkTppEn. 

Inj 'rOU UflHT WirinOHiriG OH THE lifiTfl? C 1 FOR YES? £ FOR riO) 



I'lOH HFiriY BITS [nj VOL! iJFlMT TO SL..JDE THE Y HHTRT>^r-' 



FREOUEMCY BFirffiWIHTH 
FREQUEHCY PER BIT 



HER i Z. 
HERTZ. 



"YPE fl n) TO PRIHT THE EFT OR (?) FOR THE PSD ONL 



•'SM 



-1) 



;khhtri:>-; '■■;•■ hfitrix strpt 4Slid 



1 M!=-iS4 






Oulc&O 1 



.Lfc'PbOl 

1 6£!'f 33 





11 
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"0 F'Elise: 'i'mur old liflifl tn'pf h fii? else (si 



PIF'UT THE iiUHBER OF TUTS PER WIHTCihL 
THEN TYPE H CD, ff\R FiUERFiGES 
OR R !£) 5 FOR NO FiliE RAGING. 



liiPUT THE STflRTING BIT RND # OF BITS TO BE SKIPPED. 
?i5 1 

no YOU iJflrn" windowing on the DRTfl?(i for yes? s for NO) 

HOW MRNY bits DO YOU WANT TO SLIDE Tf-IE Y NRTRi;-;? 



F REQUENCY BRNDW I DTH 



FREiSUENCY PER BIT 



3 hef:t; 

1 ! It^.K i 1 



T'i'PE R a) TO print THE EFT OR (£) FOR THE PSD ONL, 



r#-lj 



^NRTRIX 



1 



riRTRiy START 4SLI] 



' 1 '-J 



0££6y i 



, 6840E:- J 



IF YOU WISH TO REUSE YOUR OLD DATA TYPE A C 1 ) j ELSE (£3 



TO ENTER NEW DATA TYPE A (i). TO STOP TYPE fl (£) 
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RAND 1; 

DESCRIPTION 

Upon execution this program generates random numbers between and 1. This 
program may be used as a subroutine in a larger program. Almost every value 
will be an irrational number. 



USERS 

Anyone who needs a random number generator. Rand 1 can be used to set up 
initial conditions for a program such as a game or an analog simulation. 



I NS TRUCTIO NS 

List the program for program information. Type RUN and the program will 
list the first 100 random numbers to the accuracy of your computer. 



This program will store and execute in less then IK Byte of memory. 
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FiFirii:) 1 



US PE.n c;ie::i-!Ef::fite;:e; f:fii-iiic 
c:gi l..e:t f^='4 
:3i;;:i l.i;:t' fi=fi--'3 

50 LET B=^m:fi+R3;«»;8 

60 LET r^^=b-"Inti;b;i 

70 LET 1=1+1 

80 IF I>100 THEM 110 

90 PRIMT R 

1061 CliOTO '5Q 

110 LET I=^M?i 

1£0 EMU 



#' 



i?i-( 



;'UM 



9SS7£:lc;31 

£38685931 

S960568S3 

,688040811 

, 173864307 

,544787018 
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RAND 2: 

DE SCRIPTION 

Rand 2 generates random numbers between X and Y, where X and Y are integers. 
This program may be used as a subroutine for a larger program. The generated 
numbers are all integers. 



USER? 

Anyone who needs a specific type of random number generator. Example: only 
integers between 1 and 6 to simulate dice rolls. 



INSTRUCTIONS 

Type RUN. Input Y (the largest #) and then input X (the smallest #). Then 
the program will print the first 100 random numbers between X and Y. 



Lim TAT IONS 

Rand 2 will store and execute in less then IK Byte of memory. 
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F;;i-=irT[i s 



w i?e:i'1 ■■fn:[:E; F-'i-:;'i:iGF;;;Firi i:::iEi'iE::F?FiT'E::E; 

?B pRmr "TWE. m the; i.j:iI'.ii::e;t !•■■ 

:3i;;i iril-:'I..JT K 

40 ;k==inti;x:i 

45 PF:INT "TYPE Hi Ti- 

::;:iei IHF--'I...IT' Y 



RFlMnCiil #'3 BETW 

i..iri]"!E:F? tiE;'E;]:F'E:[:i 



L,FiF?i:;E::'Err r^'iuMisEi? -y 



70 Fl~0.6543iE:J 

00 Fl-="fl»U. 101 

90 J-IHTFR) 



10i; 

110 

1£0 

l:E!0 

14f 

150 

160 

170 



Fl=l'-1-J 

R==iriTrFi»:Yf:K+,5i 

I==I41 

IF I>100 TF-IEM 160 

F'RIliT R 

GOTO 80 

I =^13 

Ei-in 



F;i..iri 



41 
47 



40 
cj r" 



18 



LET Y=100 
LET X=l 
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SOLVE 1 

D ESCR I PTI ON 
Solve calculates the roots of any polynomial that has real coefficients. 



USER S 

This program will find most of it's users to be Engineers, Scientists, 
Mathematicians and high school students. 



INSTRUCTION S 

Initial data must be entered before the program is run. When entering this 
data use the following format: 

30 DATA N,A(N),A(N-1),..... 

where 

N - is the order of the polynomial 

A( ) - is the coefficients in descending order 

Then type RUN. Bairstow's method is used to solve for the roots. For addi- 
tional information list the program. 



LIMITATIONS 

Line 320 contains a Restore statement. Lines 780 and 960 contain ABS( ) state- 
ments. The source code will require 5K Bytes of memory for storage and 7K Bytes 
for execution. The sample problem finds the roots for the following three poly- 
nomials. 

3X + 6 = X^ - 6X + 5 = 3X^ - yX^ + 4 = 
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■e;olj...ie: 



38 DFlTfl iE38 

300 READ 08 

310 IF 08 = 1E38 THEN 340 

330 RESTORE 

:3 30 GO TO 430 

340 PRINT "INSTRUCTIONS ? Cl=riIN. j £=HL.L) ... WHICH 

350 INPUT 00 

360 IF 00 = 1 THEN 1980 

370 IF 00 = £ THEN 1969 

■380 LET 09 = 09+1 

390 IF 09 >3 THEN 9999 

400 PRINT THEiINTC36»^RNDf09J 3); " 1 OR £ . . . WHICH "; 

410 GO TO 350 

4£0 DIM flC£6)? EC£fc)? Xi£6) 

430 LET G8=0 

440 PRINT 

450 LET C1=0 

460 LET Dl=l 

470 LET 0=0 

4S0 LET G8=G8+1 

490 PRINT 

500 REflli N 

510 LET Nl = N+l 

5£0 LET Ml = N-1 

530 IF N=0 THEN 9999 

540 PRINT 

550 PRINT "POLYNOMIflL NUMBER" 5 GS? " IS OF ORDER" ?N 

560 PRINT 

570 PRINT " COEFFICIENTS (IN DESCEND I NG ORDER) ARE: 

580 PRINT 

590 PRINT " "i 

600 FOR I = 1 TO Nl 

610 REfiD flCI) 

6£0 PRINT fl(i:i 3 

630 LET Ei;ij=Hi;i:i 

640 NEKT I 

650 PRINT 

660 PRINT 

670 PRINT " THE ROOT"? 

680 IF N>1 THEN 710 

690 PRINT " IS5" 

700 GO TO 7£0 

710 PRINT "S HREs " 
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7iE:0 PRINT 

730 IF H<=e THEN 1420 

740 IF fliNl)=0 THEN 1509 

750 IF CH.^-£-INTrN.'-£:n=0 THEN 780 

760 GOSUB 1600 

770 GOTO 730 

730 IF flBSiflCMDX l.E-SS THEN SSO 

790 LET P=fl(N3.--HiMi:! 

300 LET Q=R CNl ) --■fl (Ml 3 

810 GOTO 340 

830 LET F-fiiN) 

330 LET Q=Ri:N1) 

340 FOR 1=1 TO Nl 

350 LET XCI1=HCI) 

360 NE>^T I 

370 GOSUB 1550 

330 FOR I = 1 TO Ml 

390 LET Ei:i3=>ai) 

900 NEXT I 

910 LET R = XfNJ 

9£0 LET S = FlCNl) - FWJ.H'i - Q'^KlMlJ 

930 GOSUB 1550 

940 LET Kim = -ps^XCMl) - Q^K(N-£) 

950 LET B = ><(MUt£ - X (Ni s^y (m-S) 

960 IF flES(D 3 > l.E-£5 THEN 990 

970 PRINT "SOLUTION UNOBTfllNfiBLE WITH THIS PROGRFlM. " 

980 GOTO 440 

990 LET pi = p + (psyfr-ii) - S*^"fN-£)3 -■'- D 

1000 LET Ql = Q + CS^^XiNl) - RSKXCN)) ^ D 

1010 IF RBSCP ) > l.F-35 THEN 1050 

1030 IF RESfPl) > l.E--£5 THEN 1056 

1030 IF RBSC Ql > 1.E--35 THEN lObO 

1040 GOTO 107ti 

1050 IF RES iPl.^-p-1 )>. 000001 THEN 1970 

1060 IF RBS iQl.-"Q- IX. 000001 THEN 1190 

1070 LET P=P1 

10S0 LET Q=Q1 

1090 LET C1=C1+1 

1100 IF C1=D1«£5 THEN 11£0 

1110 GOTO 840 

11£0 PRINT 

1130 GOSUB 1930 

1140 INPUT Kl 

1150 IF Kl=i THEN 1170 

1 1 60 GOTO 440 

11?'0 LET D1=D1 + 1 

1 1 30 GOTO 84Pi 

1190 FOR I = £ TO Ml 

1£00 LET R(i:i=Ei:il 

1£10 NEXT I 

1££0 LET N=N-£ 
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i £30 


LET D=F*P-4«Q 


1 £48 


IF IK0 THEH 1: 


1 £50 


LET D=SQRfrn 


1£60 


PRINT ■' 



! -h'+n i -Vi 



>' ClWTl " ! 



HNTj 



( -t'-~T\ ) .-•-"£ 



1£70 

1310 

1330 
1 340 
1 350 

1360 

1 390 

1 400 

1410 
1 4£0 
1430 

1460 
1470 
1480 
1 490 
1 5 £10 
1510 
1530 
1530 

1 550 
1 560 
1570 
1580 
1 590 
1 6ti0 
1610 
16£0 
1 630 
1640 
1650 
1 660 
1670 
1680 
1 690 

1700 

1710 
17S0 



LET CI = 
LET ril = l 

LET Ni = N+1 

LET_ril_= N-l 

GO ! i'40 

LJUTU l4t!y 

LET D=SQR(--D} 

PRIHT " "5 -p.--?? "-^ J ^"5T).--'£j " flnli 

LET C1=0 

LET Dl=l 

IF N-£ THEM 1430 

LET HI = H+1 

LET Ml = N-i 

GO TO 740 

IF N=l THEH 1480 

IF N=0 THEN 440 

LET P = E(£) .••■' BCD 

LET Q = BC3J y Eil j 

LET H=0 

GOTO 1£30 

PRINT ■■ "? -E!;£j 

GOTO 440 



R(l) 



LET Nl = H 

LET H = H-1 

LET_ril = N-l 

GOTO 730 

LET ><(£) = X(£;i - P^Xtl) 

POR 1=3 TO H 

LET X ( I ) =y C I) -FW, ( I-i ) -Q^X i l-£j 

NEXT I 

RETURN 

IF BC£J = £1 THEN 1630 

LET K = ~BC£i -■■• B(l) 

GOTO 1 640 

LET y = -BIND .-■ Bfl) 

LET F=0 

LET F1=0 

FOR 1=1 TO Nl 

LET J = Nl - I + 1 

IF EfJ)=0 THEN 1720 

LET F = EC J)=«>vtCI-l} + F 

IF I = 1 THEN 17£0 

LET Fl = iI-l)»^E(J)SXtfI-£) + Fi 

NEXT I 
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1730 LET K 1 =ft-F.-T i 

1740 IF hbs(;k--->-;i-i J < .eseeei then 184© 

1 7'50 LET l-'-i='.-'-Il 

1760 LET C1=C1+1 

1770 IF CI =1)1 ^£5 THEN 1790 

173£i GOTO 1640 

1790 GOSUE i9£0 

1300 IMPUT Kl 

1810 LET D1=D1+1 

13S0 IF Kl=l THEM 1640 

1830 UJTU 440 

1840 PRINT " "r><l 

1350 LET ri=H--l 

1353 LET N1=N+1 

1356 LET M1=N-1 

1360 FOR I = t: iO Nl 

1370 LET flCI)=Ef I)+Xl*;flCI"ll 

13S0 LET BiI)=H(n 

1390 HEKT I 

1900 RETURN 

1910 STOP 

1930 PRINT "THE SOLUTION DID NOT CONUERGE HFTER" ?Ci; " ITERRTIONS TO" 

1930 PRINT "CONTINUE THE SOLUTION FOR £5 MORE ITERATIONS TYPE 1" 

1940 PRINT "OTHERWISE TYPE O. "? 

1943 IF CK75 THEN 195© 

1946 PRINT " RNSWERS MAY BE INhCCURhTE. "5 

1950 RETURN 

1970 PR I NT "THIS PROGRRM FINDS ROOTS OF POLYNOMIALS BY EfllRSTOW'S METHOD. 

1930 PRINT 

1990 PRINT "TO USE? ENTER DATA IN DATA STATEMENTS AS FOLLOWS:" 

£000 PRINT 

£010 PRINT" 30 DATA N? ACN+D? HCNJ? ACN-D? ... 5 Ri£lj AClj" 

£0£0 PRINT 

£030 IF 00 = 1 THEN 9999 

£040 PRINT "HHERE N IS THE ORDER OF THE POLYNOMIAL AND" 

£050 PRINT "Ail+D IS THE COEFFICIENT OF THE I-TH DEGREE" 

£060 PRINT "TERM. MORE THAN ONE DATA LINE MAY BE USED" 

£070 PRINT "TO SUPPLY COEFFICIENTS FOR ONE POLYNOMIAL?" 

£0£€i PRINT "AND ADDITIONAL POLYNOMIALS MAY BE SOLUED ON" 

£090 PRINT "A SINGLE RUN BY SUPPLYING DATA FOR THEM ON" 

£100 PRINT "SUBSEQUENT DATA LINES (NOT BEYOND LINE £99)." 

£110 PRINT 

£1£0 PRINT "CAUTION: THERE ARE A FEW TYPES OF POLYNOMIALS" 

£130 PRINT "WHICH THIS PROGRAM IS UNABLE TO SOLUE. PROGRRM" 

£140 PRINT "WILL SO INDICATE AND GO ON TO NEXT CASE. ALSO?" 

£150 PRINT "FOR HIGH ORDER POLYNOMIALS? PROGRRM MAY REQUIRE" 

£160 PRINT "MANY ITERATIONS? SO RUNNING TIME CRN BE HIGH." 

£l.'-0 DATA 

yyyq END 
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■;0\ l..ir 



10 riFiTi=l 1 3356 

11 IiRTFi P? l!.~6?5 
I'd uFlTFl ■•■I?':-:? -7? 85^ 



FM:ii,,;r'riijriiF!L. irmeier 1 is; of" lifihf:!? i 

COEFFICIEi-rrS (Hi IJECE.raJiriG npijER) RRi 



TF!E !?00T' 



F'OL'tMOM I FiL riUMEER 2 IS OF OFiriFR' £ 

COEFFICIEl-lTS (Irl JJECEHIJIMG ORHER) FiRE 

1 "6 !5 

THE ROOTS; FIRES 

5 FiriD 1 

POLYHOIIIHL r-lUMBER 3 IS OF ORDER 3 

coEFF I c 1 E:riTS c I r-i liECEr-iii i mg cirder i fif;e ; 
THE ROOTS Fires 

1 FiHIi -0.666666? 



397 



SPHERE TRIANi 

DESCRIPTION 

This program solves spherical triangles that lie on the surface of the earth. 
Each must have it's apex at the North Pole. 



USERS 

Individuals plotting a course for air or sea navigation can use this program 
to calculate the most direct course. 



INSTRUCTI O NS 

The information about the triangle must be entered before the program is run. 
The format is as follows: 

10 DATA LTD,LTM,LGD,LGM,RLTD,RLTM,RL6D,RLGM,ALD,ALM 
where 

LTD,LTM = local latitude in degrees and minutes 

LGD,LGM = local longitude in degrees and minutes 

RLTD,RLTM = remote latitude in degrees and minutes 

RLGDjRLGM = remote longitude in degrees and minutes 

ALDjALM = observed altitude in degrees and minutes 

South and East are entered as negative numbers. For additional information 
list the program. 



LIMITATIONS 

Sphere Trian requires 5K Bytes for storage and should execute in 7K Bytes of 
memory in most systems. 
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■'i-!t.r:'L 1 1"! 1 H[i 



10 GO TO 434 
li30 liflTfl 1E50 

105 PRINT 

104 PRINT" S P H E R I C fl L, T R I fi H G L E s L U T I N' 

106 PRINT 
108 PRINT 
110 LET L = 

lis LET P = 3.14159£65 
114 LET C = 1S0.--P 

116 REflii ne 

118 IF im = 1E50 THEN 9999 

180 READ M0? T0? NO? Dl? Ml? Tl? Nl? HO? JO 

1 CC L.U. I !— — L-"i" J. 

184 PRIHT"CfiSE NUMBER" ?L 

186 PRINT 

188 PRINT 

180 PRINT'-LOCflL POSITION:" 

138 PRINT 

134 PRINT hESCDO) ; "DEG "?M0!"riIN "? 

136 IF liO < THEN 148 

138 PR I NT "NORTH "? 

140 GOTO 144 

148 PR I NT "SOUTH "? 

144 PRINT"LHTITUIiE" 

1 46 PR I NT RES ( TO ) 5 " DEG " I N0 ? "M IN " 5 

148 IF T0 < THEN 154 

150 PR I NT "WEST "? 

158 GOTO 156 

154 PRINT"EFiST "5 

1 56 PR I NT " LOriG I TUBE " 

158 PRINT 

160 PRINT 

1 68 PR I NT " REMOTE PuS I T I ON : " 

164 PRINT 

166 PRINT PES CD! ) 5 "DEG "?Mi;"MIN "i 

168 IF Dl < THEN 1 



?4 



170 PR I NT "NORTH "I 

178. GOTO 176 

174 PR I NT "SOUTH "? 

176 PR I NT "LHT I TUBE" 

178 PRINT fiBSfTl);"DEG "?Ni;"MIN 

180 IF Tl < THEN 186 

188 PR I NT "WEST "? 



399 



184 GOTO 133 

13b PRIMT"EhST "? 

133 PRiriT"LONGITUl!E" 

190 PRIMT 

19£ PRINT 

194 LET M0 = ri0.--60 

19b LET H0 = N0---b0 

193 LET Mi = ML-'-b0 

£00 LET Nl = Nl.---b0 

£02 IP DO >= THEM £08 

£04 LET D0 = (flESCIJ03+M0+90) ■■•-C 

£06 GOTO £10 

£03 LET DO = 190-CD0+M0J l.-''C 

£10 IP Di >= THEM £16 

£1£ LET Dl = CFiES i-Dl ) +M1+903 --'C 

£14 GOTO £18 

£16 LET Dl = C90"iDl+ril ) l.-'"C 

£13 IP TO >= THEN ££4 

££0 LET T0 = ~(hBS(T0) +H0) yp 

£££ GOTO ££6 

££4 LET TO = (T0+M0J.--C 

££6 IP Tl >= THEN £3£ 

££3 LET Tl = - CABS (Tl ) +Ni ) ■-■€ 

£30 GOTO £34 

£3£ LET Tl = (Tl+Nn.--C 

£34 LET T = HBS(T1-T0) 

£36 LET P = CuSi:D03«COSCDi)+SIMCDe)^SINCDl)*:COS(TJ 

£33 LET PI = SQRCflBS(l-Pt£li 

£40 LET Z = HTNCflES(Pl.^-P)i 

£4£ IP P >= THEN £46 

£44 LET Z = P-Z 

£46 LET G = (COS CDl ) -P»^COS (DO) )/ iPl*^SINf:D01 ) 

£43 LET B0 = HTM (HES (SQR (HESC 1-Gt£) ) .^'G) ) 

£50 IP G >^ THEN £54 

£5£ LET E0 = P-E© 

£54 IP (T0"Tli >= THEM £58 

£56 LET B0 = £^P"E0 

£58 LET H = (COS (D03 -P^^COS (Dl ) 1 ^^- fPl»^SIN (Dl J ) 

£60 LET Bl = flTN(HES(SQR(HESfl-Ht£) ).--^H)3 

£b£ IP H >= THEN £66 

£64 LET Bl = P-Bl 

£66 IP (T1-T0) >= THEN £78 

£68 LET Bl = £*:p-Bl 

£70 PR I NT" LOCAL HOUR ANGLE (AT NORTH POLE)?" 

£72 PRINT 

£74 PRINTINT(10«T5KC+.5) ■-■10;"DEG" 

£76 PRINT INT(T*;C)5"DEG "5 

£ 78 PR I NT I NT ( 608^ ( T^C~ I NT ( T*C ) ) + . 5 ) -■'■ IS?" M I N " 

£80 LET H7 = TS^C-iS 

£8£ LET M7 = (H7--INT (H71 )*^60 

£84 LET S7 = (M7-INT (M7:i )*^60 



400 



cot. 






300 

30£ 
304 
30fc. 

308 

;-; 1 Pi 

314 
316 



PRINT IHKH?) ; "HRS 

PRIMT 

PRINT 

PRINT"ZENITH (GREAT CIRCLE) D I STANCES : " 

PRINT 



"? INTfM7J ; "MIN "i INT i 10*^37+. 5)/ 10? "SEC^ 



PRINT INT( 



10*^Z»;C+.5).--10; "HEG" 

2:»^C ) ? " HEG " ? 

e,yysh r 7-Kc- 1 NT iZ^C) )+.5).--"10? "MIN" 

S00SZftC+ . 53 .•'■10; "NAUTIChL MILES" 

fS00WZ»^C*^60Se.£.--5£80+.5)---10? " STATUTE NILES" 



105 "MIN' 



;l3y 

:i34 

:!36 

:!40 
:14£ 
;i44 
;:46 
;:48 

:150 



:lb£ 

:i64 

:l6tl 

;i70 
;:74 



;yu 



PRINT I NT I 

PRINT INT 

PRINT INT 

PRINT INTi 

PRINT 

PRINT 

PRINT"TRIJE BEARINGS (GREAT CIRCLE COURSES):" 

PRINT 

PRINT" REMOTE POSITION PROM LOCAL POSITION:" 

PR I NT I NT ( 1 0»^E0»^C+ . 5 ) .-■ 1 ? " DEG " 

PRINT INT(E0*^CJ 5 "DEG "? INT (600*^(10*0- INT (E0«C! 1 +. f=;i /iPi; "MIN" 

PRINT 

PRINT" LOCAL POSITION PROM REMOTE POSITION:" 

PRINT INT(10»;E15«C+.5).''-10? "DEG" 

PRINT INT(E1»^C) ; "DEG " ? INT (660*^ (Els^C-INT ( El»^C) ) +. S'l 

PRINT 

PRINT 

PR I NT "ALTITUDE (REMOTE CELESTIAL POSITION" 

PRINT" AEOUE LOCAL POSITION HORIZON):" 

PRINT 

LET h7 = 9y-Z*C 

LET _ AS = AES(R7) 

IP A7 < THEN 348 

PR I NT I NT ( 1 0*^Fi7+ . 5 ) /' 1 ? 

GOTO 35£i 

PRINT -1*;INT( 10;*fl8+.5).^"i0j 

PR I NT "DEG" 

IP A7 <■ THEN 360 

PRINT INT(R7);"EEG "? 

PRINT INT (600* ( A7-INT ( A7) ) •+-. 5) -•■105 "MIN" 

GOTO 364 

PR I NT - 1 * I NT ( A8 ) ? " DEG " ? 

PRINT INT (600* ( A8-INT (AS) ) +. 5) .--IS; "MIN" 

PRINT 

PRINT 

IP (1+H0)*(1+J0) = 1 THEN 418 

PRINT"UBSERUED ALTITUDE: " 

PRINT 

PR I NT H0 ; " DEG " ? JO ? " M I N " 

LET HI = H0 + J0.--60 

PR I NT I NT ( 1 00*H 1 + . 5 ) .-- 1 0@ ? " DEG " 

PRINT 

PRINT 

PRINT" LINE OF POSITION:" 

PRINT 
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383 LET 14 = by^iHl-HFI 

3 90 PR I \\1 I NT ( 1 0»^-FlBS i 1 4 1 + , 5 ) ■■- i 6 J 

39S IF 14 > THEM 398 

394 PRiriT"HHflY "5 

398 GOTO 400 

398 PRINT-TOWHRDS "? 

400 PRIHT"Ori LINE EEflRING " ? 

40£ IF 14 > THEN 416 

404 LET E9 = B0»;C+i80 

406 IF B9 > 360 THEN 413 

408 PRINT INT (10^E9+. 5 ).-'-10; "DEGREES TRUE" 

410 GOTO 418 

413 LET B9 = E9~360 

414 GOTO 408 

416 PRINT INTi:i0»^E0SC+.53.--10;"DEGREES TRUE" 
418 PRINT 
430 PRINT 

433 PRINT 

434 PRINT 
436 PRINT 
438 PRINT 
4331 GOTO 116 

433 PRINT 

434 PRINT" THE 'SPHERE' PROGRfiM SOLOES SPHERICAL TRIfiNGLES HflUING" 
436 PR I NT "THE RPEX AT THE NORTH POLE RND THE OTHER TWO CORNERS HEP I NED" 
438 PR I NT "BY THEIR RESPECT I UE LATITUDES AND LONGITUDES. DATA FOR AS" 
440 PRINT"MRNY CASES AS DESIRED MAY BE ENTERED SUCCESSIUELY IN DATA" 

443 PR I NT "STATEMENTS 10-99 IN THE FOLLOWING FORMAT:" 

444 PRINT 

446 PRINT" 10 EATfl LTD?LTM? LGD?LGMj RLTD^RLTM? RLGD?RLGM? ALDjALM" 

448 PRINT 

450 PR I NT "WHERE EACH PAIR OF NUMBERS SPECIFIES A LOCATION IN THE FORM" 

453 PRINT" 'DEGREES? MINUTES' AS FOLLOWS;" 

454 PRINT 

456 PRINT" LTD?LTM = LOCAL LATITUDE" 
458 PRINT" LGDjLGM = LOCAL LONGITUDE" 
460 PRINT" RLTDjRLTM = REMOTE LATITUDE" 

463 PRINT" RLGDjRLGM = REMOTE LONGITUDE" 

464 PRINT" ALD?ALM = OBSERUED ALTITUDE ilF ANY) " 
466 PRINT 

468 PRINT" FOR SOUTH LATITUDES AND ERST LONGITUDES? ENTER " 

470 PRINT"THE DEGREE UALUES AS NEGATIUE NUMBERS AND THE MINUTE" 

471 PR I NT "UALUES AS POSITIUE NUME£RS„ IF THERE IS NO OBSERUED" 

473 PR I NT "ALTITUDE? SET ALD AND ALM EQUAL TO ZERO. " 

474 PRINT 
9999 END 



402 



Ii3 IjFlTri 



! H _ ii-'i H i "i n "-.i-j "i 



Ki iri 



■< ! n„r- J. -.i iL. i =■■ .i ■ J! i!.;>i i„ . , j v.: i „,. r.„' 1 i ',,.'■ ' 



! nnpi! PiTisTTIOfls 



( ::• liEjj 



•■^W pliri ririR'TH I FlTITUTJE' 

30 Miri HF'E.T- I ririfinuriE 



RlEiriOTE POSITIONS 



.33 MEG, 



26 i'HrJ NCJhnT-i ! FiTIT! rDE 

30 nm mm \ nMGnijDE 



LJJLfiL. HOUK: FlIitiLJE: (FTT I-KjETH F'OL,!':,) 



fc.i:::i iitin 
59 BE'-G 



60 Min 

Sh MTM 



ZEr-IITH n:;REFiT CIRCLE) niSTFiriCESs 

5£.6 DEC 
53 IJEG 37 Mir! 

3157 HFiUTICFlL i'ilLES 

,-,.-■."-, j™ i:;;- ,--xr'i"Ti n'J*"" iviTj r-r-- 

ot'O. 1 . ■,. i -:■ I r 1 1 U I c. i-) .1 L„r,. r. 



403 



TRiJE BtHRIiiG'i. rii,KF:HT 



rejIute PCS it 10 

RFti.l DEG 



ICjCCCi ; 



•::' j. i i, •..'I !• 



EF'Ci DEl-i 4 I'llli 

LOCRL posiTiori p'Ron re:mute pasiTiorii 






-i I, r ! 



Ml T-T'Tirrir r ot-hirrTi: rci i.'c-tt::j! pfiC-TTTriti 
• ■!._. i ,j„ I L!.!,!L, '. ■-■ rJ P-j ! I... L,'i.„„L,.i., , ...' 1 .11 !t,- ■ 1.'-...' ,i., 1 I-Jl i 

RBUl'E LOCRL POSIT I OR HOPIZOi H s 



.■.4 jJEG 
37" HEQ 



IM 



oi5Se:rue:d rltitudes 

:3? T1E:G ,E'0 MIR 



LIRE UP POSIT I oris 

3 MILES RRflT OR LIRE BERPIRG 



1 [JEGiREES; TRE, 






404 



STARS : 

DESC R IPTIO N 

This program lists out the altitude and azimuth of fifty (50) of the most 
prominent celestial stars. 



USE R S 

Stars will be of use for anyone interested in knowing the location of a 

particular star. This would include astronomers, mariners and people doing 

navigation at night. 



IN STRUCTIONS 

Type RUN and the program will ask for all necessary data. For detailed pro- 
gram information list the program. If an exact position is desired the 6HA 
of Aries will have to be entered. 



L I M I TAT IONS 

The source code is 8K 
UK Bytes of memory. 



Bytes long. Execution of Star requires approximately 
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S"rFlR:3 



10 PRINT ^'STRR LOCRTION PROGRflM" 
£■0 PRINT "NORTH + SOUTH ~ ERST 4- HEST -" 
30 PRINT "FOR EXACT RRIES TYPE 1'^ 
40 PRINT " FOR RPPROK TYPE £" 
50 INPUT W9 
60 IF W9=l THEN 160 
70 IF W9=£ THEN 8© 

80 PRINT "RS IS THE DRY OF THE YERR" 
90 PRINT" fl3 IS THE ZONE TIME (£4 HOUR DECIMRL) " 
100 PRINT "L LHTITUDE DEGREES" 
110 PRINT ■'fl£jH3?Lj" 
1£0 INPUT REsRSjL 
1 30 J7=L 

140 B6=la0.0£5+fR£s» 985) + ( fl3^15:! 
■ 1 50 GOTO £40 

160 PRINT "fl£ R3 GHR RRIES DEG NIN" 
170 PRINT "L?L1 LRTITUIiE BEG MIN" 
180 PRINT "R7 fl8 LONGITUDE DEG MIN" 
190 PRINT "fl£5H3?L3Ll3H75R3" 
£00 INPUT fl£5fl3jL?Ll jR75R8 
£10 J7=L+(Ll---60) 
££0 PRINT 

£ 30 B6=h£+ C h3--'60 ) +fiT''+ i H£---'60 3 
£40 W=0 
£50 PRINT 
£60 PRINT " STRR RLTITUDE DEGREES AZIMUTH DEG 

£70 PRINT " 

£80 RERD R?Hl 

£90 IF fl=400 GOTO 3£80 

3 00 C£=B6+H+ ( R 1 --'60 ) 

310 READ D?D1 

3£0 C3= f.B+ i:D1.''-60) ) -^57. £957795 

330 IF C£>1080 THEN 538 

C£>900 THEN 550 

C£>7££1 GOTO 410 

C£>540 GOTO 430 

C£>36£i GOTO 450 

C£>180 GOTO 470 

C£<180 THEN 490 

C£<0 THEN 510 
?=7£y-u£ 
4£0 GOTO 560 



340 


IF 


350 


IF 


360 


IF 


370 


IF 


380 


IF 


390 


IF 


400 


IF 


410 


t-'-i! 
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4 40 GOTO 560 
450 rt£=3b0-C£ 
GOTO 560 

GOTO 560 

GOTO 560 



4t.y 

.'i O "-^ 

500 

510 
5£0 
530 



.1 ! i^> 



uuTu 5by 

GOTO 560 
!-;£= 1 yy y— L-f 

IF X4>1.5707y63£ THEN 590 
580 IF X4<1.5707963£ THEN 610 
590 >-;3=3. 14159£65 ~K4 
600 GOTO 6£0 

6££^ B=HES CKS) 

630 B1=C3 

6 40 E3= J7.-''57 . £957795 

650 B=X3 

ee© P=HTN( iSINiEiSCOSiEn 3/-(l-rSINCE)^C0S(ElJ 3 t£ji t.53 

£.70 K=HTNf iSIN(Bll.-C0S!:P3 ) .^f l-fSIN (El ).^COS CP) Jt£)t.53 

680 K6=HESCKJ 

6 90 !< 1 =flES ( K ) '^57 . £957795 

700 IF ft4>1.5707963£ THEN 786 

710 IF ft4< 1 . 57079633 THEN 7£0 

7£0 IF Ki>90 THEN 740 

730 IF KK90 THEN 760 

740 K£=1S0-K1 

750 GOTO 830 

1 C'l.- r^.i_ — v-.x 

770 GOTO S3£i 

780 IF Kl>90 THEN SOO 

790 IF KK90 THEN 8£0 

800 K£=K1 

810 GOTO 830 

8£0 K£=180-K1 

830 IF K>0 THEN 850 

840 IF K<0 THEN 87© 

850 K3=K£ 

860 GOTO 880 

890 E4=-B3 
900 G1=K4+E4 

910 g£=hbsi:gi) 

9£0 G5=G£^57. £957795 

930 H=flTN( (COSiPJ *^COS(G£) 3 .^"(1-{C0SCP3^C0S (G£3 3 1£3 1.53 
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:"4w H1=H^57. £9D77y5 
950 H3=INTtHlJ 
)S0 H4=H1--H3 
?7y H5=H4*^60 

?80 IF X4>i=57S7963E THEN 1090 
?90 GOTO 1010 
1 000 H=-H 
1010 P5=P 

1020 Z=HTNi: iSINiPSl •■"COSCH) ) ^"C 1- CSIHfPS) ^^■COS CH) )t£)t.5) 
1 030 Z 1 =Z^57 . £957795 
1 040 ri3=K---E3 
1050 B7=flBSi:B3) 
1 060 KS=K£.--57 = £957795 
1070 IF D3>0 THEM 1090 
1080 IF B3<0 THEH 1110 
1090 IF KS>B7 THEN 1130 
1 1 00 GOTO 1110 
1110 IF Zl>90 THEN 1150 
11£0 IF ZK90 THEN 1170 
1130 IF Zl>90 THEN 1170 
1140 IF ZK90 THEN 1150 
1150 Q1=Z1 
1 160 GOTO 1130 
1170 Q1=180-Z1 
1180 IF B3>0THEN lEOO 
1190 IF E3<0 THENl£b0 
1£00 IF X£>0 THEN1££0 
1£10 IF X£<0THEN 1£40 
1££0 D5=Q1 
1£30 GOTO 1310 
1£40 B5=360"Q1 
1£50 GOTO 1310 
1£60 IF X£>0THEN 1£80 
1£70 IF K£<0THEN 1300 
1£S0 B5=180-Qi 
1£90 GOTO 1310 
1 3ti0 D5= 1 S0+Q 1 
1310 W=W+1 

13£0 IF H3>0 THEN 134© 
1330 IF H3<0 THEN £80 
1340 Ii6=INTi:D5) 
1350 IF D6>360 THEN 137© 
1360 GOTO 1380 
1370 It6=B6~36ei 
1380 IF H=l THEN I960 
1390 IF W=£ THEN 1980 
1400 IF W=3 THEN £000 
1410 IF W=4 THEN £©£© 
14£0 IF i-J=5 THEN £040 
1430 IF W=6 THEN £060 
1440 IF W=7 THEN £080 
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1450 IF W=8 THEM £190 
1460 IF W=9 THEri ei£0 
1470 IF W=10 THEM £140 
1480 IF 14=11 THEM £160 
1490 IF N=l£ THEN £186 
1500 IF W=13 THEN ££00 
1510 IF y=l4 THEN £££0 
15£0 IF W=15 THEM ££40 
1530 IF W=16 THEN ££60 

1 Ji-ti ir y4— i i Liui U i^.tioti 
1550 IF W=18 GOTO £360 
1560 IF LJ=19 GOTO £3£0 
1570 IF W=£0 GOTO £346 
1580 IF W=£l GOTO £360 
1590 IF H=££ GOTO £380 
1 600 IF W=£3 GOTO £400 
1610 IF U=£4 GOTO £4£0 
16£0 IF W=£5 GOTO £44© 
1630 IF i4=£6 GOTO £46© 
1640 IF i4=£7 GOTO £480 
1650 IF W=£8 GOTO £500 
1660 IF W=£9 GOTO £5£0 
1670 IF W=30 GOTO £540 
1630 IF .M=31 GOTO £560 
169£i IF W=3£ GOTO £580 
1700 IF W=33 GOTO £600 
1710 IF N=34 GOTO £6£0 
17£0 IF W=35 GOTO £640 
1730 IF W=36 GOTO £660 
1740 IF W=37 GOTO £680 
1750 IF W=38 GOTO £700 
1760 IF W=39 !iOTO £7£0 
1770 IF W=40 GOTO £740 
1780 IF W=41 GOTO £760 
1790 IF W=4S GOTO £78© 
18ei0 IF W=43 GOTO £800 
1810 IF W=44 GOTO £8£0 
18£0 IF H=45 GOTO £840 
1830 IF W=46 GOTO £860 
1840 IF W=47 GOTO £880 
1850 IF W=48 GOTO £900 
iSm IF W=49 GOTO £9S0 
1870 IF W=50 GOTO £940 
1880 IF W=51 GOTO £960 
1890 IF W=5£ GOTO £980 
1900 IF W=53 GOTO 3000 
1910 IF W=54 GOTO 30£0 
19S0 IF W=55 GOTO 3040 
1930 IF W=56 GOTO 3060 
1940 IF W=57 GOTO 3080 
1950 IF W=58 GOTO 3100 
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1960 PRINT "fiLPHERHTZ"?H3?Dt. 

1979 GO 10 £S0 

19S0 PRIHT"fiNKflFi"jH3 5Db 

1990 GOTO £80 

2000PRINT '-SCHEIiFiR" ? H3j Dfe 

£010 GOTO £80 

£0£0 PRINT "DIPHDfl'-jHSfDb 

£030 GOTO £80 

£040 PRINT "RCHEriF!R"5H3jDb 

£050 GOTO £80 

£060 PRINT "HHriFlL"?H33l!6 

£070 GOTO £80 

£080 PRINT "flCHriFlR"?H3jT!6 

£:090 GOTO £80 

£ 1 00 PR I NT " MENKfiR " ? H3 ? Ii6 

£110 GOTO £80 

£ 1 £0 PR I NT "■ M I RFFlK " ? H3 ? Dfo 

£130 GOTO £80 

£ 1 40 PR I NT " flLIiEBRRfiN " ? H3 ? Ii6 

£150 GOTO £80 

£ 1 60 PR I NT " R I GEL " ? H3 5 116 

£170 GOTO £80 

£ 1 80 PR I NT " CflPELLR " ? H3 ? D6 

£190 GOTO £80 

££00 PRINT "BELLHTRiy"jH3?D6 

££1M GOlU £80 

£££0 PRINT ■'ELTH%H3?D6 

££3y GOTO £8ti 

£ £40 PR I NT '^ RLN I LflM " 5 H3 5 H6 

££5a GOTO £80 

££60 PRINT "BETELGEUSE"?H3jIj6 

££7y GUTU £80 

££80 PR I NT " CRNOPUS " s H3 ? D6 

££90 GOTO £80 

£300 PRINT "SIRIUS"?H3?D6 

£3ly GOTO £80 

£3£0 PRINT "HDHRRfl"5H3?D6 

£3 3a GuTO £80 

£340 PR I NT " PROCYON " ? H3 5 D6 

£350 GOTO £80 

£360 PRINT "P0L.LU::<;-SH3jrt6 

£370 GOTO £80 

£380 PRINT "RUOIR'SHSjDb 

£39"0 GOTO £8Hi 

£ 400 PR I NT " RUHR I L " ? H3 ? life 

£410 GOTO £80 

£4£0 PRINT "f1IflPLRCIDUS"?H3?D6 

£430 GOTO £80 

£440 PRINT "RLPHRRD"?H35D6 

£450 GOTO £80 

£ 460 PR I NT " REGULUS " ? H3 ? D6 
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c'470 GOTO £80 

£480 PRIHT "DUEHE'SHSjIie. 

£490 GOTO £80 

£500 PRINT "DEriEB0LFi%H3?D6 

£510 GOTO £80 

£5£0 PRINT "GIEMRH'M-lSsDb 

£530 GOTO £80 

£540 PRINT "RCRUrt'SHSsIib 

£550 GOTO £80 



:'■=;=::!? 



c. J 



PRINT "GfiCRlJK"?H3!ri6 



£57y uuiu £Ha 

£580 PRINT "flLI0TH"5H3?Db 

£590 GOTO £80 

£600 PRINT "SPICn''jH3?lJfc. 

£610 GOTO £80 

£6£0 PRINT "HLKHlIi'SHSjDb 

£630 GOTO £80 

£640 PRINT "Hfir!HR"?H3?ri6 

£650 GOTO £8£i 

£660 PRINT "riENKEHT"?H35D6 

£67y GOTu £t=£i 

£680 PRINT "HRCTURUS'SH35D6 

£6yo GOTO £80 

£700 PRINT "RIGEL KENT"jH3?D6 

£71W GOTu £80 

£7£0 PRINT "ZUEEN!UErSH3?D6 

£7:J0 GOTO £80 

£740 PRINT ■'K0CHHE"!H35lJ6 

£750 GOTO £80 

£760 PRINT "F!LPHECCH"'?H3?D6 

£770 GOTu £80 

£780 PRINT "HNTRRES"?H3jD6 

£790 GOTO £80 

£800 PRINT "RTRlH'SHSjDb 

£810 GOTO £80 

£8£0 PRINT "SREIK'SHSsDb 

ppjOfH| r'|~|T|"| '""-jfJi 

£840 PRTNT'""SHHULfl"',H3jB6 

£850 GuTO £y0 

£860 PRINT "RHSRLHHGUE"jH3!li6 

£870 GOTu £80 

£880 PR I NT " ELTRN I N " ? H3 j Kb 

£890! GOTO £80 

£900 PRINT "KRUS RUST'S HSjDb 

£910 GOTO £80 

£9£0 PRINT "UEGR"jH3jE6 

£9301 GOTO £80 

£940 PRINT "NUNKrSH3?rib 

£950 GOTO £80 

£ 960 PR I NT " RLTR I R " ? H3 ? Db 

£970 GOTO £80 
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eyfcsy 

£'990 



5010 

:i030 
:1040 

::050 

:!t1fc.0 
:I07£1 
:!080 
:1090 
:! 1 tl£l 

3 110 

n30 
;ii40 
;ii50 
;ii60 
;ii70 
;ii30 

:1 1 9t1 
:l£00 

3£:10 

:l££:0 

5230 
;!£40 

;!£:50 

;;£:60 

:!£70 
::£30 



PR I rlT " PEhCOCK " ? H3 ? D6 

GOTO £S0 

PRINT '^DEMEE'SHSsDS 

GOTO £30 

PRINT "ENIF'SHSjDb 

GOTO £30 

PRINT "PL NflIR'SH3?Dfc. 

GOTO £80 

PR I NT " FOMRLHhUT " 5 H3 ? D6 

GOTO £80 

PR I NT " NflRKHB " ? H3 5 D6 

GOTO £30 

PRINT "POLAR IS" ?H3?D6 

GOTO £30 

DflTfl 353 ? 1 7 ? £3 ? 56 s -353 ? 4' 

TifiTfl 335 

DflTR 309 

DRTR £79 

DflTR £64 

DflTfl £44 

DflTR £18 



3 5 ^■7 ? —4c! ! — c!t' ? 35y ? 1 3 < 56 ? ££ ? 349 ? £3 ? ~ 1 8 ? ~' 
51? ~57 J ~£!3 ? 3££' ? -37 ? £3 ? i 9 ? 3 1 5 ? 43 ? ~40 ? ~£5 ? 314? 49 ? 3 ? 5' 
£7 ? 49 ? 45 ? £9 1 ? £7 ? 1 €■ 5 £7 ? £8 1 ? 43 ? ~8 ? ~ i 4 ? ci3 1 ? £3 ? 45 ? 58 
? 7? 6? £0? £7£!5 54? £3? 3:5j£7fc.? 19? —1 ? —13? £71 ? 37 "* ■ • " 

11? — 5£ 5 —4 1 J £59 ? 3 ? — 1 6 ? — 4£i ? £55 ? 3£' ? — £8 ? — 5€- ? 
? 7? c!8? fc' ? c!34? 3£? ~59? — t:!!!? irJc'o? IP? ~43? —19? ££l ? 48? ~€'9? ~ 
3cl ? ciy 8 5 1 8 ? 1 £ ? 7 ? 1 94 ? 3 1 ? fc' 1 ? tl'5 J 1 83' ?7?14?44 



DflTfl 176 
DRTfl 166 
DflTR 148 
DflTfl 137 
DflTfl 108 
DflTfl 96? 



5 f J c,«+ 

;45?34?5i 



18 
36 



J £fo ? — 1 7 ? — £>■ ? 1 73 ? 4€- ? —t'cl ? — 5t' ? 1 7£ ? "37 ? —56 ? —57 
4'::^ ? 56 ? 7 ? 1 59 ?5? — 11? ""1? 1 53' ? £4 ? 4'::^ ? c!8 ? 1 49 ? 3"4 ? — fc'0 ? — 14 
46 ? —36 ? — 1 4 J 1 46' ? £5 ? 19? £y ? 1 40 ? 3fc' ? —60 ? -43! 
41 ? —15? —55 ! 1 .:'7 J 1 7 5 74 ? 17? 1 £6 ? 3'3 ? fci6 ? 49 ? 1 1 3 ? fc' ? — £€= ? ~'c 

? 3'fc' ? — fc'8 ? — 59 ? 1 kfcL ? 49 ? — 1 5 J — 4£ ? 97 ? 5 ? — 3"7 j — 5 

>6 ? 1 £ ? 35 ? 'z^ 1 ? 1 ? 5 1 ? €Lz^ ? 84 ? kzfc' ? — 34 ? — £4 ? 8 1 ? ? 38 ? "H--^' 



L'H ' H 7fc" 5 3"8 ? — £fe' ? — £0 ? 6£ ? 3'9 ? 8= ? 47 ? 54 ? 9 ? — 56 ? — 5y ? 4":;' ? 5-j 
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DRTH 34 ? 1 '::^ ? '3 ? 44 ? £8 ? £4 ? —47 ? — €■ ? 1 5 ? 59 ? —3'::^ ? —4 7? 14-? 10? 15? 3- 

DRTR 3£8 ? '.-''zf ? 89 5 

END 
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TRACK: 

DE$C R IPTION 

This program calculates the great circle distance course and track between 
two locations on the earth, given the Lat. and Long, of your departure and 
destination. 



USE R S 

Track will be of use to navigators or individuals who plot courses, 
and sailors, all classes will be among the users of this program. 



Aviators 



IN STRUCTIONS 

List the program for detailed program information, 
will request all needed data. 



Type RUN and the program 



L I MIT AT IO N S 

Line 420 contains an ABS( ) statement. The source code for Track requires 4K 
Bytes of memory and should execute in 6K Bytes. 
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TRHCK 



1 i;ia 

lie 

1S0 

1 30 
140 
150 
1 60 
170 
1 80 
1 9£i 

£00 

£10 
££0 



PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
i PR 



INT 

I NT 

INT 

INT 

INT 

INT' 

INT 

INT 

INT 

INT 

INT' 

INT 

INT 



"GREAT CIRCLE DISTANCE 
"Hl?H£ LAT OF DEPflRTURE " 
"A3jR4 long DEPARTURE" 
"DEG MIN DEG NIN" 
" ASjHb LAT DESTINATION" 
h7jA8 long DESTINATION" 
"EAST+ l.JEST- NORTH+ SOUTH 



COURSE +TRHCK 



11 



Jc 



I 

T 
i 

"J3 I 

TO TEF; 



OUT ' 



LONG OF FIRST PRINT 
DEGREE STEP" 

LONG OF SECOND PRINT OUT" 
MI NATE WITHOUT TRACK MAKE . 



J£=0" 



£30 PRINT 

£ 40 PR INT " A 1 ? h£ ? H3 ? H4 5 AS ? Ab ? A7 ? AS ? J 1 ? J£ ? J3 " 

£50 Y=57. £9577951 

£ 6ti Y 1 = 1. 5707963£ 

£70 INPUT Al ? Afi? AS" A4? A5? Afc? H75 ASj Jl ?J£? J3 

£80 PRINT 

£90 PRINT 

3 00 B= ( A 1 + ( A£.--€.0 1 ) -•■" Y 

3 1 A=A3+ ( h4 ■■■■60 ) 

3 £0 B 1 = ( A5+ ( H6.--60 ) ) .■•- v 

3 30 A9= A7+ ( H8.--60 J 

340 IF A<0i GOTO 360 

350 GOTO 370 

360 A=:3fc-0+H 

370 IF H9<ti GOTO 390 

380 GOTO 400 

£i90 A9=360+A9 

400 T£=H-H9 

410 E3=E 

4£u T6=hesi:t£:i 

430 IF T6M80 GOTO 450 

440 GOTO 490 

450 IF T£<0 GOTO 480 

460 T£=-36£i+T£ 

470 GOTO 490 

480 T£=360+T£ 

490 T=T£ 

500 GOTO 11£0 

510 H7=H6 
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5£0 IF' T£>0 GOTO "540 
530 GOTO 550 

5 4 £1 l!7=360-D7 

550 PRINT "GRERT CIRCLE DISTRHCE :< 
560 PRINT "N M I LES";H6" COURSE "5117 
570 IF J£=0 GOTO 168© 

580 IF J1<0 GOTO 600 

590 GOTO fc.40 

600 J1=360+J1 

610 IF J3<0 GOTO 630 

6££i GOTO 64£i 

630 .J3=360+J3 

g,4y >:;=;:.:;+! 

650 E5=E5+E1 

660 if" f=j3 goto 1680 

6 70 PR I NT " COURSE " ? EM- " D I STANCE NM " 5 E5 
680 IF >:;>!. 5 GOTO 740 

6 90 T=F!BS ( H- J 1 ) .-••■ Y 

700 IF T>(£^Y1) GOTO 7£0 

710 GOTO 730 

7£0 T=!:4*^Y11~T 

730 GOTO 800 

740 T=hESCJ£.'-Y) 

1 „>y £'■:•— 1 1 — rit- 

7 &.0 B8= ( 1 80-09 3 .-•■ Y 
770 GOTO 800 

780 PRINT 

790 PRINT 

800 M=HTN(THNCTi»^SIN(E3l3 

810 M=Y1-M 

8 £0 R= C COS f T ) *S I N f BS -i1 ) 3 .--S I N i M ) 
8 30 l!9=HTN ! SQR ( 1 -Rt£ ) .-R 3 

840 IF D9<'0 GOTO 860 

850 GOTO 870 

8 60 D9= [ £*^ Y 1 ) +D9 

870 N=HTH(THNfD8}*^SIN(E31) 

880 N=Y1-N 

890 H6=hTN i: (ThN i;E3) *^C0S CT-N) .1 --COS f.N) 1 

9 00 E=hTN ( TflN f E3 ! '^fJ'J S f DS-M ) --COS ( M 3 3 

910 E 1 = ( Y 1 -E 3 ^Y^6B 

9£0 H6=Yl-h!6 

9 30 H8=90- ( H6^-Y 3 

940 l!9=li9*:v 

950 Ii4=180-Ii9 

960 IF T£>0 GOTO 980 

970 GOTO 990 

980 Ii4=360-D4 

990 GOTO 1000 

1000 IF >=:>1.5 GOTO 1030 

1010 F=J1 

10£O GOTO i£50 



INITIRL COURSE' 
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1 030 
1 040 
1050 
1 070 
1 080 
1100 
1110 
11S0 

1130 
1140 
1150 
1160 
1170 
1180 
1190 

1 £00 

1£10 
1££0 
1£30 
1£40 
1 £50 
1 £fc.0 
1 £70 
1£80 
1£90 

1 300 

1310 
13£0 
1 330 
1340 
1 350 
1360 
1 370 
1 380 
1 390 

1 400 

1410 
1 4£0 
1430 
1440 
1450 
1 46€i 
1 470 
1480 
1 490 
1 5 £10 
1510 
15£0 
1 530 
1 540 
1 550 



IF T£<0 GOTO 1050 
GOTO 1080 
F=F+J£ 

GOTO 1£50 

F=F-J£ 

GOTO 1£50 

PRINT 

Tl=fRBSi:T3)/Y 

M=flTN (COT CEl ) *:COS (Tl )) 

R= iSIN f El ) *: ( COS (Y1-E3-M} 3 ^COS ( i13 ) 

H6=fiTH (SQR ( 1-Rt£3 .^R) 

IF H6<0 GOTO 1180 

GOTO i 1 90 

H6=(£"*^Yi:i+H6 

H6=H6=^Y^60 

H8=90- f H6'-'60 3 

D6=flTN ( ( COT f T 1 3 m I N f Y 1 -B3-M 3 3 -'S I N C M 3 3 

Ii8=Yl-l!6 

l!7=90-i;iit.sY3 

GOTO 510 

IF H8<0 GOTO 13£0 

L=HS 

GO SUE 16£0 

PRINT 

PRINT 

PRINT " 

GOTO 1 330 

L=H8 

GOSUB 16£0 

PRINT 

PRINT 

PRINT " 

IF F>360 GOTO 14£0 

IF F>180 GOTO 1470 

IF F>0 GOTO 1580 

IF F<0 GOTO 1490 

Fl=F-360 

L=Fi 

GoSUE 16£0 

GOTO 1510 

GOTO 1530 

Fi=360-F 

GOTO 153ei 

F1=_F 

GOTO 1530 
PRINT 
GOTu 640 
GOTO 1540 
L=Fi 
GOSUB 16£0 



LflT " 5 L 1 " BEG " L5 " M I N NORTH " 



LFlT " ; L 1 " DEG " L5 " M I N SOUTH " 



-ONG " ; L 1 " DEG " 5 L5 " M I N EflST " 



416 



1560 PRINT ■' 

158S ri=r 

1590 L=F 1 

1 600 GOSUE 1 6£0 

1610 GOTO 1510 

16P0 Ll = iriTrLj 

1630 L£=(L-Ll)i^60 

1640 L3=InT(L£J 

1 650 L4= (L2-L3 ) *^ 1 

1 660 L5=L3+ (I NT i L4 

1670 RETURN 

1680 END 



;!! ; 1 ^iifqT j-J l.jp-QT 



) - ■ 1 H I 



:,-K , ^ /-v- w .,-->■ .'--i-'V 7- A-v.Ar-'}. .r-^>-/-^ .kr>-'^f-^ I 



' .vl ^. '" :.J X '-(--1 A i-'^-^' A rV'-i X r-i 



i ■ i ^W 



s: I- 



'- -'<i> T ■•'■'. />, '■-, Yp, f-'- ,<J.,ri-'-i t" r4^' WN.5^-fT:- i 



/\ J- 









' iA' ' I lA: ' Jk'- 



r..^^v>f T-f-vi--^' Yrlrf^ — 



'SL... 
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TRIANGLE: 



Triangle will solve for all parts of any plane triangle given one side and 
any two other parts of the triangle. 



USERS 

Surveyors, high school students, and anyone else who uses trigonometry can 
find use for this program. 



INSTRUCTIONS 

Type RUN and enter your data as asked. For additional information list the 
program. 



LIMITATIONS 

Line 105 contains a DEF FNS statement. This is used throughout the program. 
Triangle's source code requires 4K Bytes of memory to store and 6K Bytes of 
memory for execution. 
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TRIFiriGLE 



10 DIM flClW) jB(10) sC (10) ?Hi:i0) jRtlQ] jSCiei 
100 PRINT 

1 05 DEF FNS i 1 1 = .01*1 NT C 6000^ i B C I ) - 1 NT C E C I :i :i ) + . 5 ) 
110 PRINT "THIS PROGRFlM WILL FINU THE UNKNOWN FEATURES OF ANY" 
115 PRINT "TRIANGLE J GIUEN ONE SIDE AND ANY TWO OTHER PARTS." 
1£0 PRINT 
1£5 PRINT 

130 PRINT "WHAT WILL BE GIUEN (1=SSS? £=SAS? 3=SSAj 4=ASAj 5=AAS)"; 
135 INPUT ri 
140 PRINT 
145 LET R8=0 
150 LET R9=0 

155 IF (N-l)*;fN-£ii*^(N-3J*iH-4;is«fN-5J=0 THEN 170 
160 PRINT "ANSWER 1? £;■ 3? 4, OR 5 PLEASE...." 
165 GOTO 1£5 
170 IF N=l THEN £10 

175 PRINT "NOTE: SPECIFY ANGLES AS 'DEGREES? NINUTESj SECONDS' OR- 
IS© PRINT " 'DEGREES? MINUTES. DECIMAL? O' (I.E.? SECONDS=0) " 
185 PRINT 

190 IF N=£ THEN £30 
195 IF N=4 THEN £70 
£00 IF N=5 THEN 335 
£05 IF N=3 THEN 385 

£10 PRINT "WHAT ARE SIDEl? SIDE£5 SIDES"? 
£15 INPUT Sil) ?Si:£;i ?Si:3) 
££0 UOSUB 540 
££5 GOTO 630 

£30 PRINT "WHAT ARE SIDE!? ANGLES? SIDE£"? 
£35 INPUT SCi) ?Hi:33 ?Ei3) jCi3) ?Sf£) 
£40 GOSUE 830 
£45 LET 1=3 
£50 GOSUE 6£0 

£55 LET Si:3Ji=SQR(Si:i3t£+Sf£3t£-£*tSC13^S(£l»^C0Si:Rt3l ) J 
£60 GuSUB 540 
£65 GOTO 630 

£70 PRINT "WHAT ARE ANGLE 1 ? SIDES? HNGLEE"? 
£ 75 I NPUT A f 1 ) ? E ( 1 ) 3 C (13? S ( 3 3 ? A ( £ 3 ? B ( £ 3 ? C ( £ 3 
£80 GOSUE 830 
£85 FOR 1=1 TO £ 
£90 GUSUB 6£0 
£95 NEXT I 

300 LET R(33=3. 14159£65-R(13-RC£3 
305 LET 1=3 
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310 GOSUE 575 

315 FOR 1=1 TO £ 

3£0 GOSUB 530 

3 £5 NEXT I 

33£i GOTO 63Ci 

335 PRIMT "WHAT FiRE ANGLES ? ANGLE 1j SIDES"; 

340 I NPUT A ( 3 ) ? B ( 3 ) ? C C 3 ) ? A f 1 ) ? B ( 1 ) 5 C ( 1) , S C 3 ) 

345 GOSUB 830 

350 FOR 1=1 TO 3 STEP £ 

355 GOSUB 6£0 

360 NEKT I 

3 65 LET R l £ ) =3 .141 59£65-R ( 1 ) -R ( 3 ) 

370 LET I=£ 

375 GOSUB 575 

330 GOTO 315 

385 PRINT "WHAT ARE SI BE Is SIDES? ANGLEl"; 

3 90 I NPUT S CD? S ( 3 :i ? A ( 1 3 ? B C 1 ) s C ( 1 ) 

395 GOSUB 830 

400 LET RS=1 

405 LET 1=1 

410 GOSUB 6£0 

415 LET t=i;si:3)«sini:ri:i)3).^si:i) 

4£0 IF T-1>0, 0000001 THEN 515 

4£5 IF 1-T>0. 00000001 THEN 448 

430 LET R(31=1.5707963£ 

435 GOTO 445 

4 40 LET R 1: 3 3 =ATN ( T-'-SQR ( 1 -Tt£ ) 3 

445 LET Ri:£3=3»14159£65-Ri:i3-R(33 

450 LET I=£ 

455 GOSUE 530 

460 FOR I=£ TO 3 

465 GOSUB 575 

470 ne:kt I 

475 IF R9=l THEN 510 

480 IF Si:31>Si:i} THEN 490 

485 GO TO 505 

490 PRINT 

495 PRINT "ONE SOLUTION IS:" 

50ti GO TO 510 

505 LET R8 = 

510 GOTO 630 

515 PRINT 

;0 PRINT "NO SOLUTION POSSIBLE...." 

v£5 GOTO 800 

■> 30 LET S (13 = 1: S 1: 3 3 - S I N ( R ( 3333 "«S I N ( R (111 

".35 RETURN 

ii 4 LET P= 1; S i 1 3 +S ( £ 3 +S ( 3 3 3 .-■£ 

i 4 5 LET R=SQR ( C ( P-S ( 1 3 3 * ( P-S ( £ 3 3 « ( P-S ( :-: 3 3 3 .•■p 1 

550 FOR 1=1 TO 3 

J55 LET R f 1 3 =£S^:ATN (R.-- iP-S (13 3 3 

560 GOSUE 575 



cr-- 
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565 NEKT I 
570 RETURN 



I rr 



_'i' 



-"-f 



._! 1 i - 



4^=m? 1 T 1 



80 LET H (1 3 =1 nT i' X 1 ) 

85 LET E ( 1 1 =60*: ( K 1 ~fi f 1 3 ) 

IF HBS (60-B f I ) 1 >0. 00005 

LET EC 1 3=0 

LET H ( 1 3 =H ( 1 3 + 1 

I F HBS ( B ( 1 3 3 >Q = 000 1 THEN 

LET E(I3=0 

RETURN 

LET R ( 1 3 = (R r 1 3 +E ( 1 3 /'603 .-"' 

RETURN 

GOSUE 540 

LET I4=RSP 



k:;' 



59y 

595 

600 

605 

fc. 1 

615 



HEN 605 



685 
630 
635 
640 
hi i^' r"i 



LET Rl=Sil3.-^(8*;SINi:Ril 

LET H3i3=S(33*^SINCRi£3 



650 


LET H(£3=Sfi: 


s;SINi"R 


'. 3 3 


655 


LET H (33=8 re: 


s^SINCR 


13 


660 


PRINT 






665 


IF R9=i THEN 


685 




670 


PRINT 







3 3 3 

3 
3 
I 



675 PRINT " *S " 

680 PRINT " "? " 

685 PRINT 

690 PRINT "SIDE 

695 PRINT 

700 PRINT 

705 PRINT 

710 PRINT "ANGLE (DEG3 " ?Hf 1 3 ? fl (£3 ? flf33 

(NIN3"? IHTrEflJ! J INT( 
18EC3"? FNSil3j FNSC83 



■; C 1 3 J ' 
9NGLE (RHIO 



1 d I 



;i 



? R i 1 3 J R C £ 3 5 R (3 3 



715 PRINT 
7S0 PRINT 

PRINT 



B 1. c' J 
J FN 



3 ? INT 

-; !' 3 1 



CE(33 3 



^ ""' iTi 



RINT-"flLT TO SISE",Hil3?H!£J?HC33 
'35 PRINT ■■ 
H0 PRINT 



RRDIUS 
750 PRINT "RADIUS Op- 
755 PRINT " 



3F CIRCUMSCR CIRCLE = 
:NSCRIEED CIRCLE = 
IREA OF TRIANGLE = 



";r 
";r 



1 



=1 THEN 8y0 
=0 THEN 800 



760 PRINT 

765 IF R9= 

770 IF R8- 

775 PRINT 

780 PRINT "A SECOND SOLUTION IS:" 

785 LET R9=l 

790 LET R(33=3.14159£65-R(33 

795 GOTO 445 

800 PRINT 

805 PRINT 

810 PRINT "ANOTHER CASE C1=YES3"; 

815 INPUT Q 

8£0 IF Q=l THEN 1£0 

8 £5 STOP 

830 FOR 1=1 TO 3 

835 LET Bi: 13= Bi.l) + Cfll/ftPi 

840 NEXT I 

845 RETURN 

qqqq FNTi 
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rklHi-iGLL 



iVlJM 



THIS F1<UGF:i"ir'1 UIILL... FIflTi THE UMKNOUIM F'ERT'i IR:E'3 OF' FiM'T' 

TF'IFliiGLE? GIUEri ONE SIHE FliiH FlNV TUluOTHEF: PFlRTS. 



l'.IF!FiT' HILL. BE GIUEn i:i=SS3 



■■RSFi! 5=FlFiS) 



iluTE: SPECIFY FlHGLES FlS IJEGREESj MI MUTES? SECOMUS OR 
r!E:GF'EES ? M I MUT'ES , DEC I MiiL ? id C I . E: . ? SE:cnMIiS=0 ) 



hMHT FiRE: S I Tit: 1 ? i-lMGL E3 ? S I DEE: ? 1 7 ? 5 3 , 47 ? 58 .675 7 



SIHE 



iMGLE (RflD) 



73S681 0.4b9930'J 



;i = y ^jyy i-::ii-;i i 



HMGLE CBEG) 
CMIMJ 



'-ly 
16 



i SEC 3 
Fll T TO SIDE 



31. 16 
£:94P6l 



rhdius of circdmscr circle 

RADIUS OF iriSCRIEED CIRCLE 
FiREFl OF TRIFiNGLE 



1 > 



'&. 17 



loc't. 



1 , 6 1 clbkiki 
;/7649iE!l 






lOTHER CFiSE i:i=YESl 38 
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VARIABLE: 

DESCRIPTION 

This program is used to find and list all variables used in another program, 
written in any Basic. This program will enable the user to^'know how many var- 
iables have been used, what they were used for, and how many are free to be 
used for other quantities. 



USERS 

Anyone who is modifying a long program written in Basic will find this pro- 
gram extremely helpful. 



INSTRUCTIONS 

Before the program is run put the name of your use file after the FILES state- 
ment in line 40. Then type RUN. The program will then list the variables it 
finds in the use file and how the variables are used; refer to the example at 
the end of the program listing for more information. 



LIMITATIONS 

Line 90 contains a Restore statement. Line 40 FILES and line 100 Read #1. 

Starting in line 120 R$ & " " this and string contantation SST( ) are 

used extensively throughout this program. The source code will store in 2K 
Bytes of memory. The amount of space required for program execution is a 
function of the length of the use file. 






I' 






e.;! 
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ij|= 



F::Eri 



■OGRRM WILL LIST ALL OF THE URRIflELES IH THE 



40 
50 
f.f) 



REM PROGRflM CflLLED IH THE 
FILES 'r^XK^QQ^^f^ 
Li I M Us ( 4£iy ) ? Lt- C 400 3 
FOR 1=1 TO 400 
7'i3 LET U$il)="'^" 

80 ne:^<t I 

90 RESTORE #1 

100 REhD #l5R5- 

110 IF END #1 GO TO 580 

1£0 LET m=RM<"^0i^" 

130 FOR 1 = 1 TO LENiR:!^) 



FILES 



STRTEMENT 



140 
150 
1 60 
170 
180 
1 90 

£00 

c'. 1 y 
S£'@ 
£30 
£40 



REM f_ 

Z-- 1 +H 

LET Ks=SSTm$5 I, 

IF K$<"0" GO TO 

IF K$>"9" GO TO 

NEKT I 

FOR j=i TO lemi:r$:i 

LET K$=SSTiH$? J? 13 



MANY CHAR. PRINT OUT ON THE RIGHT. 



13 

£10 
£10 



ih 



£50 IF Ks>"Z" 
£60 GO TO £90 
£70 HEKT J 
£80 GO TO 100 



GO 



TO 
iO 



370 



£yw 

3010 
3 1 
3£0 
330 
3401 
350 
360 
370 
380 
390 
4001 
410 
4£0 
430 
440 
450 



LET J=J+1 

LET K*:=SSTi:R$?.J! 

IF K5="5" GO TO 



13 

440 



IF K5:<"fl" GO TO 410 
IF K$>"Z" GO TO 410 
FOR K=J TO LENi;R$3 
LET KS=SSTffl£5K?13 



GU 
GO 



TO 
TO 



4001 

40101 



IF K$<"fl" 

ip K$>"Z" 

NEKT K 

GO TO 100 

LET I=K+lxGO 

IF K$<"0" GO 

IF K5>"9" GO 

GO TO £90 

LET K$=SST C fl$ ? 1 5 J- 1 + 1 3 

FOR K=l TO 100 



TO 
TO 

TO 



t:;£0 

440 

U 440 
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^• 


60 


4 


i'''ti 


4 


80 


4 


90 


5 


00 


5 


10 


5 


£0 


nr: 


"'-' l^ 


'-..'■ 




5 


40 


crcTj-j 


o_„i 


-JKJ 


5 


b© 


J-.. 


— ij-j 


.J 


i"" 'i.- 


5 


80 


5 


9ti 


6 


00 


6 


10 


A 


:£0 



IF Ks=U$[K) GCi TO "510 

NEftT K 

PRINT "TOO MFlMV UFlRIflBLES"NGn TO 

LET U$(K)=K$ 

LET Lt(K)=L5(K)fi:MS 

LET L$(K)=Ls(K)a"s " 

IF LEMiL5(K:i )<50 GO TO 580 

PRINT U$fK) 3L$(KJ 

LET LfCK:i="" 

LET I=J+1 

GO TO ££0 

FOR 1=1 TO 100 

IF U$rij="K" GO TO 6S0 

PRINT Usril5L$iI) 

tiEXT I 

END 



iKM 



F:Uii I'hR'Ihble; 



Nl' 



F:t:m t 



*:£) .^"ir.*:!)" 



E=i:Li»: 

i-PIMT 



LIST OF USE, FILE 



10 REI'I THIS IS Fi TEST 

£0 C=^l 

30 Ti=n'::!»:r; 

'-[■0 B:=:(Ii*:«£l .--bSnij 

'50 PR I i IT B 

60 Fill! 



-;?s ru 
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VECTOR: 

DESCRIPTION 

When this program is run it will determine your present latitude and longi- 
tude, knowing only the starting point, distance traveled and course. 



USERS 

This program will be of assistance to anyone who navigates a boat, airplane 
or land vehicle. This program doesn't use data derived from a sextant but 
relies instead on data derived from a compass and/or odometer. 



INSTRUCTIONS 

The program will ask all necessary questions and prompt you for all inputs. 
For additional program information list Vector. 



LIMITATIONS 

Vector's source code is 2K Bytes in length and should execute in 4K Bytes of 
memory in most systems. 



O 



-O 



6 
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iiF^rvrriP 



1 1 8 Di-lTfl 40 ? J 40 ? ? 1 44 ? 67 ? £0£i 5 1 56 j 1 £3 ? £34 ? 1 80 ? 3 1 £ ? 8 ? 

1£0 PRir-iT"FOR DESCRIPTIOn OF INPUTS LIST LIMES 130 to 190 

138 REM K^Kl LflTITUDE OF DEPARTURE DEG MIN 

140 REM y£?K3 LONGITUDE OF DEPRRTURE DEG MIN 

150 REM D DISTfiNCE TRflUELED NflUTICflL MILES 

160 REM CEflST IS +) (I4EST IS-) (NORTH 13+) (SOUTH IS-) 

170 REM H ANGLE FROM TRUE NORTH DEGREES 

130 REM HNV NUMBER OF UECTORS 

190 REM LfiST INPUT IS 8? 8 

£00 REhD X?>-!ljX£?ft3 

£10 LET :K4=fi+C;Kl.--603 

££8 LET rt6=X£+ f;K3.-"68) 

£38 PRINT 

£48 PRINT 

£58 PRINT 

£68 LET K9=e 

£70 LET L9=e 

£88 REhD D?H 

£98 IF D=0THEN 7£0 

300 LET C=D 

310 LET C1=H 

338 IF Ci>=£70 THEN 368 

330 IF Cl>=188 THEN 388 

348 IFC1>=90 THEN 488 

350 IF Cl<=90 THEN 4£0 

360 LET fl=360"Cl 

37ti GOTO 440 

380 LET fi=Cl-180 

39ti GOTO 500 

400 LET H=180-C1 

410 GOTO 560 

4£0 LET R=C1 

430 GOTO 6£0 

440 LET E=Hx-57. £957795 

450 LET E1=C*^C0SCE) 

468 LET E£=C*;SINiB) 

.470 LET K=E1 

488 LET L=-B£ 

490 GOTO 678 

588 LET E=Rx^57. £957795 
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510 LET El=CffiCOS (E) 

5£i?i LET E£=c»;sir-ii:B) 

530 LET K=~E1 

540 LET L=-B£ 

550 GOTO t.70 

560 LET E=fl.--57. 2957795 

570 LET E1=C:»;C0S(B:i 

5ti0 LET E£=C*^SiriCB) 

590 LET K=-~E1 

600 LET L=E£ 

610 GOTO 670 

6£0 LET B=Fl.--57. £957795 

630 LET El=C*^COSrB:i 

640 LET E£=C»;SIH(E:i 

650 LET K=E1 

660 LET L=E£ 

670 GOTO 680 

680 LET K9=K+K9 

690 LET L9=L+L9 

700 PRINT"ri+ S-"5Kj"E+ W- 

71£1 GOTO £80 

7£0 PRIHT "L"?K9j "P%L9 

730 LET K1=hESi:K91 

740 LET li=fibsi:l9:i 

750 LET K7=RTr-!iLl--K13 

760 LET K8=K7»^57. £957795 

770 LET K£=L9.^-SINi:K71 

780 IF K9>0THEr-i 800 

790 IF K9<0THEM 

800 IF L9>0THEr-l 

810 IF L9<0THEH 

8£0 LET K3=K8 

830 GOTO 910 

840 LET K3=360-K8 

85iU GOTO 910 

860 IF L9>0THEN 830 

870 IF L9<0THEr-! 90© 

880 LET K3=180-K8 

89m goto 910 

900 LET K3=180 +K8 

9 1 LET rtS=X4+ i K9.--60 i 

9£0 PRINT 

930 LET :>^9= ( rt4+:^8 J .•■- 1 1 4 . 59 1 559fi 

940 LET Y=INTf:>^:8J 

950 LET Yl=::::3-Y 

960 LET Y£=Y1»«60 

970 LET Y3= ( L9--"'C08 I" :::;9 1 I .--■•60 

980 PRINT 

990 LET Y4=:>::6+Y3 

1000 PRINT 

1010 LET Y5=INTi:Y4) 

10£0 LET Y6=Y4-Y5 

103o LET Y7=Y6^60 

1 040 PR I NT " RNGLE " ? K3 j " D I ST '% K£ 

1050 PRINT "LflT BEG MIN 

ly60 PRINT Y?Y£5Y53Y7 

1070 END 



860 
8£0 
840 



LO 



DEG 



MIN" 
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PART 4 



PLOTTI NG 



AND 



STATISTI CS 




BimiALs 

DESCRIPTION 

The Binomial program calculates binomial distributions, 
are determined for problems where there are N number of 
trial has a probability Pi of success. 



The distributions 
trials and each 



Gamblers, statisticians and mathematicians will have the most use for this 
program. 



INSTRUCTIONS 

When the program is run it will ask if you would like instructions. When 
asked for P, N and M enter their values. P and N are defined above. Unless 
this is used for plotting let M = 100. For additional instructions list the 
program. 

LIMITATIONS 

This program should store and execute in 3K Bytes of memory in most Basic 
speaking computer systems. 




430 



mhh 



r !""i|-,-c- r i : 



ii li 



St 

110 

1 PB 
130 
1 40 
150 
160 
170 
1 80 
1 90 
iE:00 
£10 
££0 
£"Jt1 
£40 
£50 
£60 

£80 
£90 
30£i 
310 

330 
340 
350 
36Gi 
370 
380 
39ti 
40ti 
4 1 
4£0 
430 
440 
450 



IriPUT ] 

PRINT 
PRINT '■ 
PRINT ' 
PRINT_ 
P'R T NT 

P'p T NT 

! h i h i 

PRINT 

f ! ■•. i ! 1 ! 

PRINT 

PRINT 



Tr-iT 



PR I 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

PR I NT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

LET Q= 

LET n= 

LET S=; 

LET Kl 

IF Kl< 

IF P>. 



THIS PROGRfiM COMPUTES THE EINuMIfiL DISTRIBUTION" 
FUNCTION FOR PROBLEMS OF THE FORM: " 

iri H SERIES OF N INDEPENDENT TRIRLS? EflCH WITH PROEfiEILITY" 
OF SUCCESS P? WHRT IS THE pROEflBILITY THRT THERE WILL" 
BE E:KhCTLt X SUCCESSES?" 

"GIUEN P HND N? THE PROGRfiM WILL SOLUE THIS PROBLEM FOR" 
"ALL UHLUES OF X IN WHICH THE PROEflBILITY IS SIGNIFICflNTLY" 
"LARGE CUP TO ABOUT 7 STRNDhRD DEUIATIONS HWhY FROM ps^N? THE" 
"EXPECTED NUMBER OF SUCCESSES) . " 

"THE NUMBER W WHICH IS REQUESTED IS H MULTIPLIER OF THE" 
"BINOMIAL FUNCTION? SCALING IT TO A CONUENIENTLY GRAPHRBLE" 
"RANGE. (W DOES NOT AFFECT THE UALUES OF THE BINuMIflL" 
"FUNCTION? BUT IS MULTIPLIED AND PRINTED OUT IN A SEPARATE" 
"COLUMN. EACH URLUE OF imi IS ROUNDED OFF TO THE NEAREST" 
"INTEGER.! " 



"TO TERMINATE PROGRAM TYPE STOP AT ANY REQUEST FOR" 
"INFORMATION" 



"WHAT ARE P?N?M"; 
PjN? W 



"BINOMIAL DISTRIBUTION: 



1~P 

:;QfJ fJvjSpSQj 

=M-7««S 

=0 THEN 460 

5 THEN 590 



?N?" P="!P 

Hi:v;p,H) 
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460 LET E=QtM 

470 LET >^:=0 

480 IF ^<1>0 THEIM 51© 

4 9 PR I HT K 5 K.--N ? E ? I r -1 T ( E«W+ . 5 1 

500 LET I £=11 

510 FOR 1=1 TO 12 

580 LET E=E*: ( H-K ) W'---' i ( >■'+ 1 ) s^Q ) 

540 IF CX-va)»^fX£-><J<0 THEN 56© 

550 PRINT ft5 >v^nj E? IMTi'E*:W+»5) 

560 IF X»:;£ THEN £90 

570 NErtT I 

580 GO TO £90 

590 LET y=H 

600 LET B=PtN 

6 1 LET e=b^;k*^q.-- t r ri~:-v+- 1 ) ^p i 

630 IF K1<=H THEN 610 
640 LET I£=H-?< 
650 GO TO 510 

9999 END 



EirinMiHL 
Run 

no YOU l^JHMT INSTRUCT I oris (1==^VESj 0=110 :i 
NHflT ORE PjNjN ?. 166667? 30? 100 



BINOMIfiL EISTRIEUTION 



:1M 



( K 5 P ! f i j 



E*: 1 00 



1 bi 
11 

18 



i J . 1 

0= 1666667 

0„ 8666667 



!.'■■! 


00481 £7 


0. 


0£5£761 


= 


0733008 


0. 


1 368885 


0. 


1847189 


■:'"' a 


1981081 


C'l 


1 600905 


0. 


1097766 


0. 


0631817 


0, 


0308596 


0, 


018961 


= 


0047131 


0. 


PiP! 1 4985 



11 



WHhT hRE p!il?Pl 3ST0P 



432 



CHI-SQ: 

DESCRIPTION 

This program performs a chi-square analysis to samples. This analysis will 
determine the number of expected results in the sample size and compare it 
to the actual results obtained. From this the results are determined to be 
accidental or deliberate. 



■ U .S.EB.S. 

Individuals who deal with data samples would find this program quite useful 
This program could be utilized by individuals interested in Quality control 
or parts Reliability. 



I NSTRUCTIO N S - 

To use this program enter your data starting in line 100. The format for this 
data is as follows: 

100 DATA N1,S1,N2,S2,N3,S3 

where 

N(I) is the sample size 

S(I) is the number of successes or failures for the sample 

Then type RUN. Additional information may be obtained by listing the program. 



L IM ITATIONS 

The DEF FND statement is used in line 20 of this program. This program should 
store and execute in 4K Bytes of memory. 
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97 ? b i 79 114? 6554£' 1 7 ? 69 1 46£:5 ? 7557469 
? 8643339? 88493035 9031995 
5 9640697? 9712834? 977£"499 
? 9937903? 99533E":!? 99fc.533€i 
? 9993 1 £9 ? 9995 1 && ? 9996'€'3 1 
! 9999519? 99996>£!3j 9999793 



il DFlTFi 5000000? 5398c 

12 DflTR 7580363? 7881446? 8159399? 8413447 

1 3 DflTfl 9 1 9£433 ? 933 1 9£S ? 9452007 ? 9554345 

1 4 DflTfl 982 1 356 ? 9860966 ? 9892759 ? 99 1 8025 

1 5 DflTfl 9974449 ? 998 1 342 ? 998650 1 ? 9990324 

1 6 DflTfl 9997674? 99984£i9 ? 9998922? 9999277 

1 7 DflTfl 9999867 ? 99999 1 5 ? 999994€. ? 9999966- ? 9999979 1 99999i=!7 n 999999? 

IS DIM :k 1:493 ' 

£0 DEF FNDfU) = K(U+1) - KVJ) 

£1 FOR I = ITO 49 

££ REflD Kil) 

£3 NEXT I 

100 GO TO 465 

£00 DflTfl 1E3S? 1E38 

£ 05 D I M Z ( 1 00 1 ? N f 1 00 ) 

£10 LET 1=0 

£15 LET S1=0 

££y LET S£=0 

£25 LET 33=0 

£30 LET 1=1+1 

£35 READ Hi:i)?Zi:i:i 

£40 IF riii:i=lE38 THEH £65 

£45 LET Sl=Sl+Ha3 

£50 LET S£=S£+Za) 

£55 LET S3=S3+i:ZCDt£J.--Nri) 

£60 GOTU £30 

£65 LET M=I-1 

£70 LET fl=(S3-fS£t2:!.--Si:i.^i:N~n 

275 LET E= (82.^-31)*^ (1-82.^-31) 

£30 LET C2=i:M-i:iSffl.---B 

£85 LET El=SQR(£»^i:;£:i-SQRC£S!1-3) 

£90 GOSUB 37ei 

£95 PRINT 

300 PRINT 

305 PRINT 

310 PRINT 

315 PRINT 

3£0 FOR 1=1 TO M 

3£5 PRINT" ■■ n ! " " ? Z f 1 .1 ? "-•■■" ? N 1: 1 ) s 

330 NEKT I 

335 PRINT 

340 PRINT "CHI -SQUARED FOR THESE DflTfl = " ? C£ 

345 PRINT "CORRESPONDING NORtlflL DEUIflTE = "?E1 



"CHI-SQUflRE TEST OF SEUERflL PROPORTIONS: " 

" SAMPLE SUCCESSES -- TOTAL •■;; SUCCESSES" 

" ? . 00 1 »^ I NT 1: . 5+ 1 E55«Z f I ) .-ti ( 1 1 ) 
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555 PRINT " THE PROEftBILITY OF THIS UflLUE OF r:HT--;ni iRPE' 
560 PRINT ■' BEING EyCEEDEB BY CHANCE HLONE IS"?1-EP 



365 STOP 
370 IF El< 



:5 THEr 



THEN 485 
I 395 



390 RETURN 

395 GOSUE 435 

400 LET E£=Q 

405 RETURN 

415 LET E£=i-Q 

430 RETURN 

435 LET E3=@ 

438 RETURN 

435 LET Z=10s^flES(El J 

440 LET K=INTfZ) 

450 LET Q=X CK+l J -i-EiSFND (K+1) + fDl^CDl-l) ,/"3 i s; f fnD s'K+E i -END fk + 1 1 1 

455 LET Q=lE-3*;iNTC„5+lE-4^Qj 

460 RETURN 

465 PRINT 

470 PRINT "THIS PROGRRM WILL fiPPLY H CHI-SQUflRE TEST Tfi"i 

471 PRINT " SRMPLE PROPORTIONS." 
475 PRINT "TO USE? TYPES" 

489 PRINT 

485 PRINT " 190 DhTP NIjSI? NSjSPi NS,S3, . •■ 

490 PRINT " RUN" 
495 PRINT 

500 PRINT "WHERE Sl IS THE NUMBER OF SUnCESSES TN SRNPLE 1"5 

501 PRINT ", SIZE Nl" 

505 PRINT "HNIi SO ON? FOR THE M SflNPLES. " 

506 PRINT 

507 PRINT "YOU CRN USE LINES 106 THROUGH 199 FOR BRTR. " 
9999 END 
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CHI -SQ, 



!. i-lM ,UH ri 



• ^ :;:''■!::; ? '-f :'■ ? 



33? 11.31 



Chi I --S;!-:!! iHR;e HIST OF" SUJERfiL F'POF'OF:T I or-is; t 

SfliiFu: su!:L;E:£;SE:Ei .-• TorFiL, ",; suc:crs:E;E 



'-! ':'! ■■' 



,:.!.. :|. 



1317 

'='48 

lliE.5 

1131 



r:HI-SGiUHRE:[i FOF' T\-]ESt DFiT'Fi 
CijRPE:SF'Oiiri 1 1 -IG MnRMEll . OEhi J F-lTE 



;!. by 3 
5. 169 

3, 935 

7 „ S 1 9934 



THE PROBhEILJTY OF THIS UiiLUE OF" CHI-SQUFiRE 
EEiriG EKCriruElJ BY CHFiHCE Fll UME: IS 8.043 
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COEFFi 

DESC R IPTION 

Coeff calculates the fourier coefficients of a periodic function which best 
fits experimental data points or a defining function. The final equation 
with the calculated coefficients will generate the initial data or equations 
with only sine and cosine functions. 



USERS 

Experimenters would have use for this program. Anyone who analyzes data would 
also find Coeff very useful. The curve may be plotted using one of the plot- 
ting programs included in this section. 



I NS T R UCTION S 

Before the program is run all of the data must be entered in Data Statements. 
If the data is points of X and Y, enter it starting in line 2000. If the data 
is in the form of an equation or equations, enter these starting in line 6000. 
For detailed program instructions list the program. 



LIMITATIONS 

Starting in line 954 is a Print Using statement. This statement is used exten- 
sively throughout the program. The source code for this program is 7K Bytes 
long. Coeff requires UK Bytes of memory for storage and execution. 
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30 UlM Fli, D0) J K!, "Ziti) 

34REM. = .H firili B MUST HE HIMEHSIOHED HT LEhST ONE GREATER THAN THE MflK 

43REM # OF HRRMONICS TO EE FITTED. P MUST BE DIMENSIONED GREhTER THAN 

50REM THE # DATA POINTS TO BE ENTERED... 

58 LET N=£0i 

66 LET Jl=£i 

74REM..,IF DATA POINTS ARE SUPPLIED BY A FUNCTION? 'N' POINTS WILL" 

83REN EE USED FOR THE FIT. THE TABLE OF PREDICTED UALUES WILL" 

90REM HflUE ' Ji ' ENTRIES. . . " 

98 LET Pl=3. 14159E6536 

10bREM»..Pl IS 'PI' g. CAN BE USED IN DEFINING THE FUNCTION... 

114REM 

THE COEFFICIENTS OF THE FOURIER SERIES THAT APPRO^^IMATE 
THE GIUEN FUNCTION ARE CALCULATED AS FOLLOWS ^ 

C3=C0S i £^P I ^ f £N+ 1 ) 1 CD 

Si=SIN(£S^PI/(£N+l)) C£} 

U 1 =0 

f '" r:: 1 
J=l 

THE FOLLOWING RECURS I UE SEQUENCE IS USED TO COMPUTE 

UOjUDAND U£s 

U0=F(3M^PI/'r£N+ll )+£SCKUl-U& C3) 

U£=Ui 
U 1 =U0 

FOR UALUES OF M=SN3 £N-1 j . . . ? 1 

THE COEFFICIENTS ARE THEN: 

HCJj=£/'f£N+l J EFf©1+C^Ul-U£] 

THE UALUES OF "C" AND "S" ARE UPDATED TO: 

S=:C3"S+-S1'^C 

"J" IS STEPPED BY 1 AND THE SEQUENCE STARTING AT EQUATION (3) 



1 cc 


REM 


130 


REM 


1 38 


REM 


146 


REM 


154 


REM 


1 6£ 


REM 


170 


REM 


178 


REM 




REM 


194 


REM 


£0£ 


REM 


£10 


REM 


£18 


REM 


££6 


REM 


£34 


REM 


£4? 


REM 


£59 


REM 


£58 


REN 


£66 


REM 


£74 


REM 


C C' c 


REM 


£90 


REM 


£98 


REM 


306 


REM 


314 


REM 


C' C C 


REM 


330 


REM 


338 


REM 


346 


REM 
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354 REM IS riui'i REFTHTEB UNTIL M+l PAIRS OF COEFFICIENTS HflUE BEEN 

362 REM COMPUTE D. 

370 PRINT 

378 PRINT 

38b PRINT 

394 PRINT" FOURIER SERIES PROGRAM 

408 PRINT 

410 PRINT 

418 PRINT 

486 PRINT 

4 34 LET D 1=0.0 

448 PRINT"DO YOU DESIRE INSTRUCTIONS 1=YESj0=NO"? 

450 INPUT fl 

458 IF H=1 THEN 1848 

466 PRINT"flRE YOU USING fl FUNCTION TO SUPPLY DhTH POINTS (TYPE '1') OR" 

474 PRINT"fl SET OF DflTfl POINTS (TYPE '8') "5 

488 INPUT T 

490 IF T=8 THEN 4880 

498 LET N=N-1 

506 LET Ml = INTrN.^'-8;i 

514 PRINT"HHHT IS THE MfllKlMUM ORDER OF THE HARMONICS TO BE FITTED"? 

588 INPUT M 

530 IF M <= Ml THEN 568 

533 PR I NT "THE NUMBER OF POINTS MUST BE GREATER THAN OR EQUAL TO THE" 

546 PRINT"i:MAKIMUM order +1)^8" 

554 STOP 

568 IF M>49 THEN 578 

570 GO TO 61£i 

578 PR I NT "THE NUMBER OF HARMONICS YOU HAUE REQUESTED IS LARGER THAN THE' 

586 PR I NT "STORAGE ALLOCATIONS OF THE PROGRAM TYPE '36 DIM A CN) ? B (N) ' " 

594 PRINT"HHERE N=NUMEER OF HflRMONICS+i; THEN TYPE RUN" 

608 STOP 

610 REM 

618 REM COMPUTE AND PRESET CONSTANTS 

686 LET Ci=8.--N 

634 LET C8=P1SC1 

648 LET S1=SINCC8) 

650 LET C3=C0S(C8J 

658 LET C=1.0 

666 LET 8=0.0 

674 LET J=l 

688 LET :-:=0.0 

69£i GOSUE 1990 

693 LET P8=Y 

706 LET U8=0.0 

714 LET U1=0.0 

788 LET A8=N-i 

730 REM 

738 REM FORM FOURIER COEFFICIENTS RECURSIUELY 

746 REM 

754 LET X=A8SC8 
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76£ uijauB lyyy 

770 LET U0=Y+£,»:i::SiUl-"iJP 

778 LET UE=iJi 

78b LET U1=UW 

794 LET Re=H£-l» 

S0S IF' h8 >= 1E--4 THEN 754 

8 1 LET fl ( J ) =C i ^ ( P£'+C:;*^U i -US ) 

818 LET BCJJ^Cl^SSiJl 

8£b LET K=J-fri+lJ 

834 IF K >= THEH 882 

84e LET Q=C3^C--S1^S 

850 LET S=C3»;S+S1*=C 

858 LET C=Q 

866 LET J=J+1 

£'.74 GO TO 706 

88£ IF Ml <> hk'£ THEN 914 

890 IF Mi > N THEN 914 

8 93 LET R C M 1 + 1 J = . 'S-^-H i M 1 + 1 ) 

906 LET E(P11 + 1)=0 

914 PRINT 

9££ PRINT 

930 PRINT 

938 PRINT'TOURIER SERIES COEFFICIENTSs " 

946 PRINT 

954 PRINT USING 955 

955s HI 13 Bill I 

96£ PRINT 

970 FOR 1=0 TO M 

978 LET K1=I+1 

986 PRINT fllKl) jEfKlJ! I 

987st.#######tttt #.#######tttt #### 

994 ne:--:t I 

100£ PRINT 

1010 PRINT 

1018 PRINT 

10£6 PRINT 

1034 PR I NT "DO YOU WISH TO SEE fi TABLE OF PREDICTED US. flCTURL UflLUES 

1048 PRINT"(1-YESj0=NO1 "? 

1050 INPUT N 

1058 IF N=i THEN 1074 

1066 STOP 

1074 PRINT 

108£ PRINT 

1090 PRINT 

1098 PRINT USING 1099 

1099s K rRED-Y RCTURL-Y ERROR 

1106 PRINT 

1114 LET K=e*;pix(ji-i) 

11££ REN 

1130 FOR K=0 TO £^P1 STEP K 

1138 LET Yl=fli1i*;,5 
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1154 
1 1 6£ 
1 1 70 
1 1 78 
11S6 

1195: 

ise£ 
1 c! iy 



ic:&t. 
1 £74 

1 l1C=C 









1 346 

1 36£ 

1 378 

1 394 
140£ 
1410 
1418 

1434 
1 44£ 
1 450 



LET Yl=Yi + (fl ( I J *^COS( ( I-l )*X)+E( Ij^^SIii f ( I-l J «!-!) ) 

I ICi": I i. 

LET ri=flESfY-Tl) 

LET Dl=Iil + n 

PRINT :-!5Yl?Y?n 

# . tt######ttt-t- # „ #####t#tt f-t # , #######-t-ttt # . #######tttt 

HEftT K 

r r:,. i n i 

PRIHT"TUTHL ERROR=" ? Dl 

PR I m ■' MEflH ERRr!R= " ? D 1 .'-J 1 

PR I NT 

PRINT" INSTRUCT I QMS s " 

PRINT 

PR I NT "THIS PROGRhM COMPUTES THE FOURIER COEFFICIENTS FOR H GIUEN" 

PR I NT "PER IODIC FUNCTION OF THE FORN? " 

PRINT 

PRINT" 

r K i I f 1 
PPTfjjH rr 

ppTfiJ" - =• 

PRINT" ti^^i" 

PRINT 

PRINT "GIUEN THE F0LL0I4ING BflTRs " 

PRINT 

ifi. H SUBROUTINE IN LINES £000-4000 THAT DEFINES 'Y' flS H' 

FUNCTION OF -K- OUER THE INTERURL C0?£«PI3. 

CONTfilNS THE UhLUE OF PI RND CRN BE USEE IN THE" 

SUBROUTINE. FOR EaHNPLE= " 



=Fi ( ) --■"£+ ■■-' L fl C N j ftCnS C tWK 1 +B f N J "^^S I N ( N*^Y ) J " 



14 66 
1 4 i''4 
148£ 
1 490 
149S 
1 506 
1514 
15££ 
1530 
1538 



PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 

PR I NT " 

PRINT 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 

PRINT" 

PRINT" 

PRINT" 

PRINT 

PRINT" 



■^ r~! ■! n IE 



£000 IF X < Pi THEN £030" 
£010 LET Y=H.'--Pr' 
£0£y GO TO £040-' 
£030 LET Y=K.--"P 1-1.0" 
£040 RETURN" 

OR " 

.E. DflTfi STHTEMENTS IN LINES 6000-6998 CONTfilNING THE" 

TfiEULHTEB FUNCTION UhLUES EQURLLY SPRCED ON C05£*;plj" 
SO THAT THE FIRST POINT IS THE FUNCTIOr^ URLUE HT ZERO' 
ar-iD THE LHST POINT IS THE FUNCTION URLUE AT £«PI." 

£. THE NUMBER OF POINTS IF (IE) IS USED TO DEFINE THE" 
FUNCTION. fREQUESTED DURING PROGRAM EKECUTIONl " 
IF (1R3 IS USED? THE PRuGRRM USES " ?N? "POINTS. " 

3. THE DESIRED ORDER OF THE FOURIER COEFICIENTS. " 
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1546 

1 D (' t7 

1586 
1 594 

1610 
1 990 
40iti 
40S0 
4030 
4040 
4U-.jU 
4060 
4070 
4080 
4£i9ti 
4 1 00 
4110 
41S0 
4130 
4 1 40 
4 1 50 
4 1 6ti 
4170 
4180 
4 1 90 
999£' 



PRINT" 

PRINT 

PR I NT "NOTE? 

PRINT 

PRINT" 

PRINT 

PRINT" 

PRINT 

STOP 

IF T=e THEN 40E0 

RETURN 



(PFQUESTED TURING PROGRFlN EXECUTION)" 

TME ORDER OF THE SERIES MUST BE >= ZERO." 

n-IE # POINTS MUST BE > TWICE THE ORDER OF THE SERIES 

ECO) IS rlwhys zero. " 



LET r 



»P1 J )*;(Ji-i)+l„9 



LET L=INTiH:i 

IF H-L<0.5 THEN 4060 

LET L=L+i 

LET V=PCL1 

RETURN 

PRINT"HOH MFlNY DflTfl POINTS"? 

INPUT N 

IF N< £00 THEr^ 4150 

PR I NT "THE NUMBER OF POINTS IS GREATER THAN THE STORAGE " 

PR I NT "ALLOCATIONS OF THE PROGRAM. TYPE '£0 DIM P(N)' WHERE N" 

PR I NT "EQUALS THE NUMBER OF POINTS? THEN TYPE 'RUN'." 

STOP 

FOR 1=1 TO N 

READ Pd) 

NEXT I 

LET J1=N 

GO TO 49S 

DATA 1E35 

END 
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!-i !■;■;-. !, 






n l: 1 1 i;J 



pii-;ri IP' ■■•;--'-'-j TMF I 

■ii'-,ii ■-■! ILlpil 

r""- Mi L i 1 V=- , ' . 

,.-■■ '. ■! 1 M 1 i >f\ ! 

"■' -!'.: i L [ 'i'- i :-i'n 

,?•=■■"-.■' i1- 1!i|-'ri 



m IN 






]iO TOO [lESIRE IMSTROCTIOri!': i='i'F:s, 0=00 ?0 

NR:E 'i'OIJ l.iSIOG fl FOi'lOTIOii Tfi OOPPLY nOTFi POINTS f'TY 

H SET OP [JhTh points i'TYPE ffj ?1 

!'.iHFlT ]:s THE rlFi^^II'lON NRTjEP iJF' THiF' iiriR'NOf-Jir-B TO T:E: PITTEii 



OOF: I PR F.EF' I F.S !:;OFJ" E J E I Fit -IT' 



■-I" ■> -I'c'c' ]. i' b, Nc: 
1 . O3547E-05 
i:;'. 01 44ir't,.— tji"' 
5»79i?0fc.E-TiiE. 
1 = fc.PP3bE-06 

4, 85776E/-06 

1 , PlOfoSE 0f: 

3. 18':i=;i'::iE--06 



'J . i"'4'~'i:14i".~-^1i::. 
-- „ ;";];-•; J 9 9 '3 
0=, 532:5 lF';--07 
-. 1 589^1 4P 
-6=.33756F-^:i;- 

~i =, 'T::i';;iF!9F,-fr: 

f ■!'"■''"■! "i ^-~c:'-Z' 



HO ■OjU NFlNT TCi 
n.='i'EEi? 0=-NFri •' 



H TOBLE: OE PREFiJlCTEH US, FiETOR! FiOi LJES 



TOTHL EFi'F'OR - 
MERN ERROR = 



0. 03671 Ic 
Fl „ Fl3Fl3 1 9F 
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CONFIDENCE 1; 

DESCRIPTION 

When executed Confidence 1 computes confidence limits for simple linear 
regressions. 



People engaged in statistical analysis of data will have use for this program. 



INSTRUCTIONS 

Enter the X and Y data into the program before it is run. Enter the X data 
sequentially starting in line 100, as follows: 



and for Y; 



100 DATA X(1),X(2),X(3),, 
400 DATA Y(1),Y(2),Y(3),, 



LIM I TAT IONS 

A Restore statement is used in line 730. The program will store and execute 
in 8K Bytes of memory. 
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iJflF' 



3l::i RLhB li9 

40 IF l^J9=ir38 THEN 1" 

730 RESTORE 

740 PRINT 



i-l1 



750 


PRINT "3 I ri P L 


760 


PRINT 


770 


PRINT " 


780 


PRINT 


790 


PRINT 


30ti 


DIM U(£50j J U 1 350 


810 


PRINT "HOW riflN'v' 


O C' C-i 

'„.,.' L_. C- 


INPUT N 


ri --"i E=" 


LET Nl = ii-i 


3 £6 


LET Rl = H.-ril 


830 


PRINT 


840 


PRINT 


350 


IF N>£ THEN 880 


860 


PRINT "MUST HRUE 


870 


STOP 


880 


LET S1=0 


890 


LET S£=0 


900 


LET S3=0 


9 J. 


LLT 84=0 


9i30 


LET S5=0 


93ei 


FOR 1=1 TO N 


940 


REfllJ U(I) 


950 


NEKT I 


960 


FOR 1=1 TO N 


970 


RERD U(I) 


980 


LET si=si+uaj 


39£i 


LET S£=S£+U ( I i t£ 



T N r 



P 



E 



N' 



JliUfl ! ION: 



W>^ ' 



JBSERUflTIONS OH EflCH UflRIflBLE" 



HRUE THREE OR MORE UESERUhTIuNS. 



060 

065 
07ti 

080 



3+U ( I I 
44U f 1 3 1£ 
5+U i I ) «U ( I ) 



- Hit? 



000 LET s:; 

010 LET 3- 
0£0 LET S^ 
030 NEXT I 

040 LET M1=S1.--N 

LET ni = S£.--N 
LET El = Dl « Rl 
LET D£ = S4x-N - M£t£ 
LET E£ = D£ *; Rl 
LET D3=S5x-N-M1*;M£ 



390 LET C1=N«D1 
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1193 PRINT "UnRIflBLE'S " MEflH'S " URRIfiNCE'S "STIi DEUIFlTlON" 

1110 PRINT 

11£0 PRINT ■' y"5Ml?El?SQR(E13 

1130 PRINT " T"5M£5E£?SQRrE£3 

1140 PRINT 

1150 PRINT 

1 1 60 LET R8=0 

1170 LET B=D3.^'-D1 

11 30 LET fl-M£-B*Ml 

1190 LET D4=D£-B»^D3 

1£00 IF D4<D£ THEN 1£40 

1£10 LET R8=l 

1££0 LET R£=0 

1£30 GO TO 1£50 

1£40 LET R£=l-i:ii4.--D£:! 

1£50 PRINT " INDEX (Rt£)'S " EXPL URR'S " UNEXPL URR"? " STB ERROR" 

1£60 PRINT 

1£70 IF RS=0 THEN 1300 

1£S0 PRINT " ZERO CST ERROR OF ESTIMATE EXCEEDS STD DEU OF V)" 

1£90 GOTO 1310 

1300 PRINT R£?D£-D4?D45SQRfD4l 

1310 PRINT 

13£0 PRINT 

1330 LET D4=N*^D4.--(N--£J 

1 340LET T=l . 9fa513+£. 37£31^-- (N-£) +£. Sl£/ i:N-£3 t£+£. 5156£.^- 1 N-E) t3 

1 350LETT=T+1 . 031£5^- (N-£l t4+l . 81£5.^ (N-£3 15 

1360 LET D5=SQRCD4---C1) 

1 370LETD6=SQR (D4»;S£.-- CN^Cl 3 ) 

1380 LET B1=E-T»;D5 

1390 LET E£=E+T»;D5 

1400 LET fll=fl-T»:D6 

1410 LET fi£=H+T"-*^D6 

14£0 PRINT '■pRRFiriETER% " URLUE" s " 95 PCT CONFIDENCE LIMITS" 

1430 PRINT 

1440 PRINT " fl"5R?flljR£ 

1450 PRINT " B"jE?B1?B£ 

1460 PRINT 

1470 PRINT 

1480 PRINT "ESTIMATED URLUES OF Y (FROM THE REGRESSION) AND CONFIDENCE" 

1490 PRINT "LIMITS FOR INDIUIDURL URLUES OF Y, FOR ERCH URLUE OF X:" 

1500 PRINT 

1510 PRINT" X-ACTURL"?" Y-flCTURL"5" Y-CRLC" ? 

15£0 PRINT " 95 PCT CONFIDENCE LIMITS" 

1530 PRINT 

1 540 DEF FNR ( U J =SQR i D4* ( 1 +C£-*- ( ( U-M 1 ) t£ ) -C 1 ) 3 

1550 LET C£=l.--N 

1560 FOR 1=1 TO N 

1570 LET D7=FNfli:Ui:i3 3 

1580 LET Y=R+E»^U(I3 

1590 LET C3=T*T!7 

1 600 PRINT U r 1 3 ' U 1 1 3 1 Y' Y-C3i Y+C3 
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1610 riEXT I 

16E0 PRINT 

1630 READ K 

1640 IF ft=lE38 ThlE'ri 9999 

1 6'5£i LET lJ'3=¥'Hfi '■>■,} 

1660 LET r:4=TSl!8 

1670 LET T=H+B*^y 

1 680 PR I NT K n-' ", V , Y-C4 5 Y+C:4 

1690 GOTO 1630 

17'00 DhTh 1E38 

1710 PRINT 

17S5PRINT" ■' 

9999 Enli 



JFiTFi 10-)? 1 805 85? 1 



P! irl 



PIMPLF: L li IEhP REGRE'PPIOii 

EQUHTinri; Y = h + B^^-; 

i-iu!'.! ilFlN'r' OEyERFiMTinHS Ori ERCF! 'JhRThBLE 

FiFlF' I RFii E. MF Fl! -! lifiH I FlNCF' 



, 



IM 1 iUil 



1 






f!-:.wS!|.n. j 



ijr-!E:-;i=i lirf' 






PFlFfiMETEF 



FiRLLlF 



:;i;5 F'CT niNi'TTi 






Fi. 9M94.Q1 



ESTIMhTEH F'hLUER of 'r (FROM Ti iE REGPE88IuN) HNI) f:OHF I PFi ir':F' 

LIMITS FOR INlJlUIIiUflL iJfil FiES OF V? FOR EhCH "JhI uE OF Ki 



K-flCTOflL 



Y-HCTUflL V-Ffii r 



PCT COMFIDEMCF LIMIT' 



180 

•.iz: 

•1 



C.J:' 



116 


i 


'ii„ .:'m; ;■ 1 


1 3F' 


1 


:3.i "='1 "1 


10.4 


1 1 


8= '"''Il 


189 


j 


-; „ .-; li-iF 



'■:! ;-'■■■; 



■I i- 



y 1 a 

1 10. 1865 iD,'\ b^ibj, 

?'^4„983'-li 189. 184' 
158.814 
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CONFIDENCE 2: 

DESCRIPTION 
This program calculates confidence limits for an unknown sample mean, 



%-f V/ Bt I \ Vl/ 

Individuals studying data variables or irregularities within a sample could 
find this program useful. 



INSTRUCTI ON S 

Enter the sample size in a data statement on line 50. Then enter the data se- 
quentially in data statements starting in line 100. Then type RUN. For addi- 
tional instructions list the program. 



LIMITAIION.S 

The DEF FN_ is used in program lines 38, 39, 40, and 41. The program should 
execute in' most systems without incident. The source code requires 3K Bytes 
of memory for storage and will require 4K Bytes for execution. 











c: 



-' '%'i''^\ 
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CiiriFIIlFJlCF:. 



i'fc PRINT 
■:7 PRINT 



31 



REN NORNRL CURUE PROERBLILITES. . .KEEP 'EM HERE, ..DO HOT lELETE. 



iTfi 



58363 ! 788 1 446 1 8 1 59399 



J 8413447 



DRTfl 9 1 98433 ? 933 1 988 ? 9458087 ? 9554345 



DRTR 



b'-^ 



1 7 ? 69 1 4685 ? 7857469 
, 36433'39? £"r!4930'35 9831995 
? 9648£'97? 9718834? 9778499 



1356? 9860966? 9898759! 99i8£i£55 9937903? 99533:88? 9965330 



' 9999519 



9995 1 66 ? 9996631 
1 4449683 ! 494979:3 



9999979 J y 9y9987 ? 



444444;- 



':-1l 

48 
58 



llRTR 9974449 > 99£! 1 348 ? 998€-50 1 ? 99983!£4 

DRTR 9997674 ? 9998 489 ? 9993988 ? 9999877 

Tifj jp, 9999867 ? 99999 15? 999994€> ? 9999966 

DIM >::f49l 

BEF FNQ ( U j =M+U*^S 

DEF FND ( U 1 =:K ( U ) -K i U- 1 ) 

DEF FHE C U 3 =U~U*^ C tJ- 1 ) '^- ( BE^ ( 8*^0 1 3 + ( U-8 3 5«D3 "' ( 6*^0 1 3 3 

DEF FHZ (U3 = 1+ (Ut8+1 3 --' (4^D 3 + ( iUt£+33 *; C5*^f,3t8+1 3 3 .•-" (96*Dt83 

DRTR £i?ej0 
_. _ DRTR 1E80 

1 yy jL-HiH ir:! ? 3 ? t« ? y ? y 3 ii? I'z'? ifc=?cL-— '?H-_*?fci""?yy? ,i'-'?fc:M"'? i"ji'?'-i-"i;'?Erfi?fci'"?y'r 
808 DRTR 3E33 

£ 10 DRTR ,5? .75? .9? . 95? . 99? . 999? . 99995 . 99999? 1E38 
£80 FOR 1=1 TO 49 
£30 RERD ftCI3 
£40 HEKT I 
£50 READ I? Si? 88 
£60 RERD H 
£70 LET 1=1+1 
£80 READ H 

£90 IF W=3E33 THEri 330 
300 LET S1=S1+UI 
310 LET S£=S£+Wt8 
380 GOTO 870 
330 LET H=I-1 
340 PRIHT 

350 PRINT "URLUES OF SRHPLE STATISTICS:" 
360 PRIHT 

370 PRIHT " SIZE OF SRMPLE"?H 
380 LET ri=Sl.-^-N 

390 PRIHT " SRHPLE MEflN UALUE"?M 
400 LET S8=S£.--H-Mt£ 
410 LET D = H-1 

480 PRIHT " URRIRHCE OF SAMPLE" ?SS 
430 PRINT " SRtlPLE STD DEUIRTION" ?SQR( 
440 LET S5=S8«H*« f H-1 3 ^ iH^ f H-1 3 3 



S8 1 
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450 PRINT " ESTir-iaTEIi POPM STD DEU " j SQR C S5 ) 

4 60 LET S6=S5»5 ( H-N ) .••- C \W- i H- 1 J ) 

470 LET S=SQRi:Sfc.:i 

480 PRINT " STflNDfiRn ERROR OF MEFiH"?S 

490 PRINT 

500 PRINT 

510 PRINT "CONFIDENCE LIMITS ON POPULFlTION MEAN: " 

5S0 PRINT 

530 PRINT " CONF LEUELS" LOWER LIM'S " UPPER LIN" 

540 PRINT 

550 READ P 

560 IF P=1E38 THEN 9999 

57© LET Hi = 0.5«!:i+P) 

580 GO£;UE 610 

590 LET fl3 = R£ *; FNZtfiPl 

59S PRINT 10£i*^P? FNQC"fl3)j F"HQifl3) 

60£i GOTO 550 

610 IF Hl>0.5 THEN 660 

6£0 LET Hl=l-fll 

fc.3y GOSUE 7y0 

640 LET fl£=-Q 

650 GOTO 680 

660 GOSUB 700 

670 LET h£=Q 

680 RETURN 

690 REM REUERSE INTERPOLRTIOH FOR STD NORMAL DEUIRTE: 

700 LET Z=1E7»^R1 

710 FOR 1=1 TO 46 

7£0 IF Z<XCn THEN 740 

730 NEKT I 

740 LET Di = END CI) 

750 LET El - END (1+11 

760 LET IJ£=El-IJi 

770 LET D3 = FNIiCI+£) -El - IE 

780 LET U = (Z - Xd-Dj .^- Di 

790 LET Q = FNBiFNECU)) 

800 LET Q = „l^CQ+I-£:i 

810 RETURN 

8£0 PRINT 

830 PRINT "THIS PROGRAM COMPUTES CONFIDENCE LIMITS FOR" 

840 PRINT "AN UNKNOWN POPULATION MEAN? EASED ON RANDOM" 

850 PRINT "SAMPLE DATA GIUEN, TO USE? TYPE: " 

860 PRINT 

870 PRINT " 50 DATA fSIZE OF POPULATION) " 

88bi PRINT " (OMIT THIS INPUT IF INFINITE POP'NJ" 

89tl PRINT " 100 DATA Mil)? Kf£)j jXCN)" 

900 PRINT 

910 PRINT "WHERE THE KU) ARE THE SAMPLE OBSERUATIONS. " 

9999 END 
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CORRELATIONS: 



This program will perform auto or cross correlations on data. It plots the 
results as program output. It will also function for correlations on equa- 
tions. This will show all points where the two equations have equal compo- 
nents. 



Anyone who would like to compare data sets for subdued characteristics. This 
would include engineers, statisticians, experimenters, as well as hobbyists 
to name just a few. 



INSTRUCTIONS 

If the input is discrete data points, type RUN. The program will prompt for 
all necessary data. If the input is a function, as in the accompanying ex- 
ample: X(I) = f{I), they must be entered in line 3220 and Y(I) = f(X(I)) must 
be entered in line 3400. Then type RUN. 



LIMITATIONS 

The source code for this program will require 6K Bytes of memory for storage. 
With the DIM statements in line 3070 set at 2200 it will require 50K Bytes of 
on line memory for execution. If the DIM statements are reduced to 200 then 
it will execute in UK Bytes of memory. This will limit the number of data 
sets to a maximum of 200. In the examples: X(I) = RND(l) and then X(I) for I 
= 1 to N, step 3 is set equal to 0.5 and Y(I+5) = X(I). In the accompanying 
plots the correlation at multiples of 3 and 5 are distinctly visible. 

NOTE: In these examples the X data is represented by 
a pulse train, with the pulses 0,5 unit in amplitude, 
immersed in noise equal to or greater then the signal 
and at up to three times the pulse frequency. This 

•<^v, ,^ . ^^.-s, signal is '^ery difficult to detect as the S/N is dB. 

'^^^ ^^^z The Y data is the same signal as the X data except it 

has been displaced to the right by five time or unit 
intervals. The correlation between these two signals, 



N 



/S^kC^ .'- esch buried in noise, is an extreme test of the sen- 



A '^ •' ^' ^'^"X ""■ IV-V. Ill MV/I-V,, I-. 

/<::]'■ \-.---j sitivity of this program 
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^'ifrREl^FiTIOriS 



3010 PRINT ''THIS PROGRflM HOES fiUTOCuRRELflTIONS (1)? OR" 
30R0 PRINT "CROSSCORRELRTIOHS (£) ON DRTfl SETS RNIj" 
3038 PRINT -T-LOTS THE NORMflLIZED RESULTS. " 

3040 PRINT "TYPE IN THE # OP THE CuRREL. YOU NISH TO DO. (1 OR £) " 
3050 INPUT Hi 
3060 IF Hi )"£ GOTO 3040 
3 70 BIN X C ££00 1 ! Y ( ££©0 J 
3080 PRINT 

3090 PRINT "INPUT ri THE # OF DflTfl POINTS YOU HfiUE. " 
3100 INPUT N 
3110 PRINT 

31£0 PRINT "HOW NRNY TIME LRGS DO YOU WRNT TO TRKE OUER THIS IiHTfl?i:< 150) 
3130 INPUT n 
3140 PRINT 
3150 M=r1+i 

3 i6@ P.=T9=H=E=C=D=E=£i 
3170 NAT X=ZER 
3180 riRT Y=ZER 
3190 PRINT 

3 £00 PRINT "INPUT YOUR K DRTfl NOW." 
3310 FOR 1=1 TO N 
• 3££0 INPUT Kill 
3£30 R=R+X(D 

3 £40 REM R IS THE MEAN OF K 
3£50 IF RBSCX CD XRESCE) GOTO 3£80 
3 £60 B=X(I) 

3 £70 REM E IS THE LARGEST K URLUE 
3£80 NEXT I 
3 £90 A=H/N 
3300 FOR 1=1 TO N 

3310 >^:a)=xi:i)~R 

33£0 NEXT I 
3330 E=E-R 

3340 PRINT " THE MERN FOR THE X DRTfl IS "5R 
3350 PRINT 

3360 IF fll=l GOTO 3540 
3370 PRINT 

3380 PRINT "INPUT jN POINTS? YOUR Y DRTR NOW. " 
3390 FOR 1=1 TO N 
. 3400 INPUT Yd 3 
3410 C=C+-Yi"I) 
34£0 REM C IS THE MERN OF THE Y DflTfl 
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;i430 IF fll'SiV i' I) XRBS (lU GOTO 3460 

;i44y Ii=YlI) 

3450 REM n IS the: LfiRGEST Y 

ii460 ro^T I 

■1430 FOR 1 = 1 TO M 
::490 Y C l! =Y C i J -C 
;:500 NEYT I 

i%P0 PRINT '= THE IIEflN FOR THE Y DflTfi IS "JC 

;i530 PRINT 

;i540 REM THE DfiTfl IS RERDY TO RUM 

;:550 REM ^^^^ THIS IS THE PLOT SUB. *5^*^ 

::600 LET J=0 
::1 b 1 £1 LET P7=t1 

5630 REM H8 IS THE DELRY TIME FOR fi i SEC. RECORD 

i:i630 H3=INTfR3*^C1000)+. D-^'lOQw 

5 6401 TS=ti 

5650 GOTO 3930 

56fc'0 E=y 

3670 IF fil=3 GOTO 3770 

:i6£:0 FOR 1 = 1 TO (N-RJ 

3690 FOR Ri=l TO CR+1) 

3700 E=E-i- f X ( I ) W. i I +R 1 - 1 ) ) 

3710 NEXT Rl 

3730 NEXT I 

3730 IF BOO GOTO 3750 

3740 E=i 

3 7 5£i Y=E---" i i N-R ) *R 1 '* ( E*^*£ ) 1 

3 7 6ti GOTO 39 1 

3770 REM THIS IS FOR CROSSCORRELflTIOMS 

37SC1 FOR 1 = 1 TO CH-R) 

3790 FOR Ri=l TO iR+l) 

3300 IF T9O0 GOTO 3830 

3310 E=E+f>ai)»^YiI+Rl-l)3 

3830 GOTO 3840 

:ig3y F=E+ I", Y ( 1 1 W. f I +R 1-13 3 

3840 l^XT Rl 

3350 HE^^r I 

38fc.0 IF E< >0 GOTO 3830 

3370 B=l 

3880 IF IK>0 GOTO 3900 

3390 D=l 

:; 9 00 Y=E~-' ( f N-p 3 SfR 1 w ( E^l! 5 3 

3910 IF T3=l GOTO 3940 

3930 T8=l 

:!939 F=Y 

:;94y Y=Y.---'F 

3950 REM IF Z=Q1 IT DRAWS THE RIGHT SIDE BORDER 

3960 Z=0 
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3970 LET Y1=Z 

3980 LET T=0 

3990 LET T1=0 

4000 IF J=0 THEN 4090 

4010 RETURN 

40£0 REM Q0 S: Ql ARE LOWER RNH UPPER LIMITS FOR THE Y FiXIS 

4030 REM Q£ S: Q3 RRE MIN FIND MAX FOR THE X RXIS 

,;|.04@ GOTO 4£i9£i 

4050 PRINT 

4060 PRINT "INPUT THE NEW Y LIMITS. -MAX. THEN -MIN." 

4070 INPUT Q1?Q0 

4 £i B0 GOTO 4 i 60 

4090 Q0=-1 

4100 Qi=1.5 

4110 02=0 

4120 Q3=(M-li 

4130 IF Hl=l GOTO 4160 

4140 Q0=-£ 

4150 Qi=3 

■-1- 1 60 LET Q5= I' Q 1 -QO ) --'SO 

4170 LET Q6=0 

4130 M£=M-i 

4190 REM M£ IS THE # OF X POINTS PLOTTED 

4£00 Q4=iQ3~Q£)-^-M£ 

4£10 LET J=£ 

4££0 LET K=0 

4 £30 Q9=Q3+G!4 

4£40 FOR R=Q£ TO Q9 STEP Q4 

4 £50 GOSUB 3660 

4£60 IF Y1O0 GO TO 4£80 

4 £70 LET Y1=0 

4 £80 IF 06=0 THEN 471© 

4 £90 IF Q6 =£0 THEN 4390 

4300 LET K=K+1 

4310 IF K=15 GO TO 4350 

43£0 IF K=17 GO TO 4370 

4330 PRINT " ..;nT..; 

4340 GO TO 4410 

4350 PRINT " DELflY TIME "?"I"; 

4360 GOTO 4410 

4 3 70 PR I NT " ( " 5 fl8 5 " ) " ? " I" j 

4330 GO TO 4410 

4390 PRINT " 

4400 LET Q6 = 10 

4410 IF Y>Q1 GOTO 4650 

44£0 IF Y1>Q1 GOTO 4630 

4430 IF Y<Q0 GOTO 4670 

4440 IF YKQ0 GOTO 4690 

4450 LET Q7 = Q0 -t- £SQ5 

4460 LET Z=Q7+fQ5.^-£1 

4470 IF T>0 THEN 5160 



li » Il»..«l! « 
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4480 IF Z\Y THEM 5159 

4490 IF Ti>0 THEN 45£0 

4500 IF Z<Yi THEM 4520 

4510 GOTO 5£70 

45S0 IF Z-Y>=£»^Q5 THEN 45S0 

4530 IF Z-Y>=Q5 THEN 456© 

4540 PRINT " *"? 

4550 GOTO 4840 

4560 PRINT " ^ "'■ 

457£1 GOTO 4S'^-0 

4580 PRINT "-^- ■■; 

4590 GOTO 4840 

4600 PRINT " "-n 

At. 10 LET Q7= Q7+ 3^05 

4680 GOTO 4460 

4630 Y1=Q1 

4g,4y GOTO 4450 

4650 Y-Ql 

M-660 GOTO 4450 

4670 Y=Q0 

4680 GOTO 4450 

4690 Y1=Q0 



4710 PRINT 

4780 IF P7=99 THEN 4770 

4730 PRINT 

4740 REM Y IS PLOTTED '^s? rmd z IS PLOTTED ' +' AND IS COMMON 

4750 PRINT 

4760 PRINT 

4770 PRINT "THE CORRELRTION FUNCTION IS PLOTTED FlS C*) " 

4780 PRINT "'C01 IS COMMON DflTFl POINT" 

4790 PRINT 

4800 PRINT " "f.QOn" ( Y INCREMENT =";Q5?")"5" 

4810 PRINT 

4830 GOTO 4390 

4840 LET T= 1 

4850 IF Ti=0 THEN 4610 

4860 LET Q6=Q6+1 

4870 IF INTfZ)>Ql THEN 489© 

4880 PRINT 

4890 NEKT R 

4900 LET P7=99 

4910 PRINT N? "I + 1 f 1 + 1 + 1 + 1" 

49titi IF T9=0 GOTO 4950 

4930 PRINT "(. - "SQSj") REUERSE TIME LRGS. " 

494i-ii ijOTO 4960 

4950 PRINT "f"?Q3;"l TOTAL TIME LRGS" 

4960 PRINT 

497a IF Hi =8 GOTO 511© 

4980 PRINT 
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5800 PPIn1 



~b1 



PPIHT "WOULD YOU LIKE TO SPECIFY NEW Y LIMITS? CYES OR HO)" 

50£0 INPUT Bs 

5830 IF D£="Y" GOTO 4050 

5040 IF D$="YES" GOTO 4050 

5050 PRINT 

5060 PRINT "WOULD YOU LIKE TO RUN NEW DflTfl?" 

5070 INPUT D$ 

50S0 IF D$="Y" GOTO 3008 

5090 IF n$="YES" GOTO 3008 

5108 GOTO 5570 

5110 IF T-=i<>0 GOTO 49S0 

51£0 PRINT "IF YOU WFlNT THE NEGflTIUE SIDE TYPE 1, ELSE TYPE fi 8. 

5130 INPUT T9 

5140 GOTO 553ti 

5150 IF T1>0 THEN 4600 

5160 IF Z<Yi THEN 4608 

5170 IF Z"Yl>=esQ5 THEN 5230 

5180 IF Z-Y1>=Q5 THEN 5? 10 

5190 PRINT " +"? 

5300 GOTO 5340 

5310 PRINT " + "j 

5330 GOTO 5£40 

5330 PRINT "+ ", 

5340 LET Tl=l 

5350 IF T>0 THEN 4860 



:;6£i GuTu 4610 



5378 IF Z-Y>=£*^Q5 THEN 5450 
5380 IF Z-Y>=Q5 THEN 5378 
5390 IF Z-Y1>=3*=Q5 THEN 5358 
5308 IF Z-Yi>=Q5 THEN 5330 
53iei PRINT " 0"? 



'-.•-;'-:L--i 



-ijjM PRINT " +^"5 
5348 GOTO 4868 
5350 PRINT "+ «"? 
5360 GOTO 4860 

5378 IF Z-Y1>=3WQ5 THEN 5430 
5380 IF Z-Yi>=Q5 THEN 5418 
5390 PRINT " *+"; 
5400 GOTO 4£fc8 
5410 PRINT " 0"? 
5438 GOTO 4866 
5430 PRINT "+*■:"? 
5440 GOTO 486ei 
5450 IF Z-Y1>=£:*Q5 THEN 5510 
5460 IF Z-Y1>=Q5 THEN 5498 
5478 PRINT "'^- +"? 
54Q@ QOTO 486£i 
5490 PRINT "«+"§ 
5508 GOTO 4860 
5510 PRINT "0"? 
5530 GOTO 4860 
5530 IF T9=l GOTO 3550 
5540 GOTO 4988 
5550 PRINT 
560 PRINT "THIS PROGRflfl WILL SINULTflNEOUSLY PLOT TWO FUNCTIONS 



cr cry-iT: 



ETET. 



570 END 
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JE';; i H i i"C'L-UKh!ELH 1 i ONS Q ) , ijh 



T* ■ ■• ■ .r " T r. i 



F T1-iE," CuRPEL,. YuU iJIbH TO Uf 



i Ik' ;-' i 



r i !c:.i IT 5 1 



OF [iHTn PUIMTS VOLl HRl'E' 



!liiO ilFlir- 



i |-ir.|S Tiji '-i'MiJ L.IHHT TO TRKE OUFR "fl-! ] y T-iPjyMv f 



j i iplj ! iLiUk' ;:, ilhl ! H iilJUU 



,ni i r ! 'K 



OR "i-ir X 



I ri!:. t-LiKh,r--L.rl i itMi !" l u i'..- i i'jfi lo '- L.L' i 't.i.' rio i ■■■■■ ,! 

CO J I'd COMMON DFlTR F'OJMT 



CREMEJ- 






1 ..! I 



lOiflL I I ME LFIUS 



FiOULD YOU LIKE TO SPECIFY MEW Y LIMITS? (YES OR 110) 



WOiJi U S'OU LIKE TO HUM MEW DhTh? 

7\\ 
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t;, ij 3 pprn-jpni I TiMi. ■;; MM '^'rsr MrT'Tl fiT I OhF; nj? OR 

rJvO'rSCnpRhL.HTJOiis i?) on PFiTfl SETS HHIi 

PLOTS THE MOPMFiL.IZEl! RESULTS. 

T'tT'E 1H the # OF [HE CORREL. YOU HISH TO liO. (1 OP 



I-iPUT ri THE # OE DFiTFl POINTS YOU r-iflUE. 



HOH flFirlY time: logs HO YOU WFir-IT TO TRKE OUER THIS iiflTfl? f< 158) 
■"•11 



INPUT' YOUR X DRTH N0H» 

THE ME:fiN EOR THE K URTh IS 



4.w:-!'=;S^,9 



INPUT ?ri POINTS? 'i'OUR "i" URTR r-lOW. 

THE HERN EOR THE Y HhTh IS .0yl3S5£ 



THE CORRELRTIOr-! EUNCTIOH IS PLOTTEB flS i"^) 
(0) IS COMMOri DflTfl POINT 

-p ( Y INCiREMEMT = . 1 ) 

T 4 1 -f- T + 



-+- 



11 I TOTflL TIME LAGS 









IE YOU WRNT THE NEGRTIUE SIDE TYPE Ij ELSE TYPE fi O. 
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I. '3 ) I 



:iPh:Et riTiiji-i FUHCTinr-! is plotted rs i:*=;i 

5 COriMOri liflTfl POINT 



ICi'triEH 



-+ 1- 












11 I TOTAL TlilE ! AGS 



HOULD VOU LIKE TO SPECIFY HEW Y LIMIT'^ 



(YES OR NO) 
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CURVE; 



DESCRIPTION 



This program performs a least squares curve fit for six (6) characteristic 
curves. The results are tabulated for each curve along with it's index of 
determination. The six characteristic curves are: Y=X/(A+B*X); Y=1/(A+B*X); 
Y=A+(B/X); Y=A*(XfB); Y=A*EXP(B*X) ; and Y=A+(B*X). 



USERS 

Anyone could use this program who would like to plot or reduce data. This 
would include engineers, financial analysts, accountants, statisticians, 
etc. to name a few. 



INSTRU CTI O NS 

Enter your X data sequentially in the data statements starting in line 100, 
as follows: 

100 DATA X1,X2,X3,X4, 

and for Y 

200 DATA Y1,Y2,Y3,Y4, 



After the data is entered type RUN. The program will prompt for additional 
input data. For detailed program information list the program. The value 
of A and B are listed for each of the six curves. 



L I MITATI O N S 

Line 710 contains a Restore statement. The program will require 4K Bytes to 
store and 13K Bytes of memory for execution. By reducing the DIM statements 
in line 705 from 200 to a lessor number the program will require less space 
for execution. 
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1 06L!fli>l1,E3o? iL3S 

1 M lIiRTFiQ? 

?MP REM 

7 fi SPRINT 

704REHDP 

7 i?i5D I Pi;-: f 290 J ? Y ( 200 ) ? ij ( £90 ) ? U C £00 1 ? fi C 6 ) ? E C fc. ) ? C i' 6 ) ? S f b ) j F ( t. ) 

70b I FP= 1 r3STHEM9 1 1 

707FORK=lTUb 

708LETF(K)-1 

709riE>-;TK 

7 1 yRESTORE 

711PRINT 

7J£PRiriT'^PLERSE SPECIFY THE NUMEER OF WLUES IN) GIUEN fiS DflTfl" 

713PRINT"FnR THE TWiJ INPUT UfiRIflELES! RND THE OUTPUT CODE CD)." 

714PRINT"(n=i IF OUTPUT IS TO BE IN ORDER OF INCRERSING URLUES" 

715PRINT"0F THE INDEPENDENT UhRIhELE. ELSE D=0) . N.D = "i 

71bINPUTN5D 

717PRINT 

71SF0RI=iT0N 

7 i 9REHDY ( I :i 

7£0NEKTI 

7£iF0RI=lT0N 

7££REflDKf I) 

~:i ,-,.-, t i r- «. ,e -r T 

7£4REflD>-:? Y 

7 £5 IF Y < lESS THEN 9ib 

7£b IF Y < 1E38 THEN 91b 

7£7RRINT 

7£8RRINT 

730 PRINT " L E H S T S Q U fl R E S C U R H E FIT" 

731 PR INT 

73£ RRINT"CURUE TYRE'S " INDEY OF"? " Fi"?" E" 

7 33PR INT" "f. " DETERM I NfiT I ON " 

734PRINT 

735F0RI=lT0b 

73bF0RIl=lT0b 

737LETS ( II J =0 

738NEyTIl 

73yG0SUB844 

740IF i 1-5) '^- \. I-b) =0THEN755 

7 4 1 1 F f I -£ ) ■« ( I -3 ) =0THEN74S 

74£F0RJ=1T0N 

743LETU!:j)=Y(J) 

744G0SUBS££ 



462 



746IFI = iTHEr-l765 

f^47GuTnF7fc 

?4SF0RJ=iT0ri 

749IFYlJj<=STHEH76e 

75eLETUiJ)=LnG(Yi:j) ) 

7'31GOSUES££ 

75£riE>aj 

753IFI=3THEH770 

7540010765 

755F0RJ=lTnM 

756IFY(J)=8THEN7fc.£ 

757LETUC.J)=i---Yi:j:i 

759G0SL!B8££ 

759riE:-:TJ 

76eiFI=6THEri77t. 

761G0T07e.5 

76£PRINT"CHNn- FIT" 

763LETFfIl=0 

7b4G0T0783 

765F0RJ=iTnr-| 

7ibbLETUCJ)=y(.J) 

767G0SUE8£5 

768HErtTJ 

769G0T078i 

770FORJ=iTOM 

77iIFyrJ3<=0THEN76£ 

7 7£LETU I J ) =L0G C U ( J J 1 

773G0SUESE5 

774NEXTJ 

775G0T0781 

776F0RJ=1T0N 

777IFXCJ)=eTHEN76£ 

778LETUUJ=l.-KtJj 

779G0SUE885 

780NE>^:TJ 

781GnsUES8b 

73£PRIMTCai jflfl) ?E(I) 

783NEKTI 

7S4IFri<>lTHEN78fc. 

735G0SUB8£9 

786PRINT 

787PRINT 

78SPRINT 

789PRIHT"DETflILS FOR"? 

790 INPUT I 

791LETK=I 

79£LETril=Ii 

793PRIIiT 

794IFFri3=iTHEM798 

795GUSUB844 
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79 


£.PR 


ir-iT 


ti 


79 


7GD 


!07 


r= 


79 


3G0 


SUB 


-I 



liJL 



riOT EE FIT 



99 1 F ( I — 1 ) *■ C I ~5 ) * C I - 



■6)<>0THEH810 
:i0£iFORJ=iTnN 
;|0 1 LETV=H 1 1 ) +B ' I J W. C J ) 
J0£IFI=lTHEN80b 
:i03LETY=i.---Y 
::04IFI=5THEriS06 
i05LETV=K(J)*^Y 
:!06GOSUB991 
;!07NEKTJ 
;i0SLETIi=Dl 
:109GOTO7S6 
:il0FORJ=lTON 
■ililFI=;E;THEM8i7 
:il£IFI=3THEN815 
:! 1 3LETY=H ( 4 ) +B f 4 ) -"'X ( J J 
:il4G0T0318 

:'15LETY=flC33Kf:>UJ) tE (3) ) 
n'bGOTOSiS 
:!i7LETY=Hf£)SEXPfE(ejs;:-::!;j) j 

:! 1 SG0SUE9PI 1 

;: 1 9NEXT J 

:!£0LETD=D1 

ii£lG0Tn786 

J££LETS i 5 3 =8 i 5 } +U C J J t£ 

:i£3LETS i 3 j =8 i 3 3 +U ( J 3 

!£4RETURN 

i£5LETS f 1 3 =8 £ 1 3 +U ( J3 

I36LETS (£3 =8 (£3 +U i J3 1£ 

:£7LETS (43 =8 (43 +U C J3 ^«U ( J3 

i£8RETURN 

r£9F0RI = iT0N-l 

i30LETri=I 

;31F0RJ=I + lTuri 

i3£IF?aM3<=;-:(J3THEN834 

133LETM=J 

134NEKTJ 

i35IFM=ITHEri84£ 

i36LETP=>aM3 

!37LETQ=Y(ri3 

!38LET>:(M3=ft(I3 

i39LETYiM3=Yf 13 

:40LET>:CI3=P 

i4iLETY(I3=Q 

!4£riEXTI 

;43RETURN 

i44LETK=I 

I45IFK=1THEM360 

i4bIFK=£THEN858 
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■;4i-IFK=3THEMS56 

:;49TFf<=4THEH854 

■;49I['K=5THEH35e 

:!50PR I HI " 6 „ T=y.--- ( h+BW. ) " 5 

5 ^il RETURN 

i '52PR I NT " "^ . Y= 1 y ( fHB^K ) " I 

;i53RETURH 

■i'54PRINT"4= Y=fl+ ( E.--'X 3 "? 

■i55RETURri 

;i5fc.PRIMT"3. Y=H*;i:>vt-BJ"? 

:i57RETLlRM 

i;5SPRiriT"£. Y=H*E:KP i'B^K) " ? 

;:59RETURN 

■i60PRINT" 1 . Y=H+ iE*^ft] " ? 

•161 RETURN 

!i6£PRINT" "? 

;:63G0SUE845 

;;fc.4PRINT'^ IS n"? 

:;e.5IFK=lTHEN870 

::iS6IFK=£THEN87£ 

;ifc.7IFK=3THEN874 

;: bSPR I NT " HYPEREOL I C " ? 

i!70PRINT" LINEfiR"? 

;!71G0Tn875 

;: 7ePR I NT '-' N EXPONENT I flL " ? 

::7'JGuT0S75 

:74PRINT" POWER"; 

PRINT" FUNCTION. THE RESUL 



;i76IFK=iTHEN878 

:!77PRINT" OF H LEfiST-SQUflRES FIT OF ITS LINERR TRANSFORM" 

;i78IFD<>lTHEN880 

;i79PRINT" (SORTED IN ORDER OF RSCENDING UflLUES OF K) " 

;i80PRINT" PRE fiS FOLLOWS:" 

5 81 PR I NT 

;iS£ PRINT " K-flCTUflL Y-flCTUFlL Y-CPLC PCT DIFFER" 

;iS3PRINT 

;i84RETURN 

ii85PRINT 

;i86LFTE= (N^^S (43 -S ( 1 3 *^S (33 3 .■^- f N^S (S3 - (S ( 1 3 1£3 3 

;i37LETH= (S (33 -E»^S (13 3 /N 

;:SSLETS1=S^53 - (S (33 1£3 .^-N 

:; 89LETS£= ( Bfd 3 * ( S ( £ 3 - ( S ( 1 3 1£ 3 .^"N 3 

:;90LETC(I3=S£^-Si 

:!9 lIF(I~13»^(I-43*( 1-53 =0THEN898 

■:9£IF ( I-£3 *^ ( 1-33 =0THEN896 

J93LETH(fc3=E 

:i94LETE(fc3=H 

::95RETURN 

!96LETH(I3=EXP(Fi3 

■i97GnT0S99 
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898LETHiIJ=H 

899L.ETBCI)=B 

y00RETURN 

9 fl i PR I NTX ( J ) ? Y f J ) ? V ? 

y0SLETD=Y(J)-Y 

903LETD=. l^^SGriili) ^im llkMfm=(BSiI}^Y} ) 

9 04 1 FD< 0THEN909 

905IFD>0THEH908 

906PRINT" 0" 

907RETURH 

908PRIHT" "? 

yfiypRIHTl! 

910RETURH 

911 PRINT 

913 PRIMT" ■' 

914 PRINT 

915 STOP 

916 PRINT 

917 PR I NT "CHECK INPUT" 
9999 END 



\ 



/ 



/ 
/ I 



/ ■ 



\ / 



\ 



/ 



L 
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DIFFERENCES: 

DESCRIPTION 

This program analyzes the differences between the means of two sets of data, 
The variances for these two sets do not have to be equal. 



USERS 

This program will find most of it's use among individuals who use statistics 
frequently in their field. 



INSTRUCTIONS 

Enter the data starting in line 100 before the program is run. The format is: 

100 DATA H1,N1,M1,S1,H2,N2,M2,S2 

List the program for detailed program instructions. If the data has not been 
summarized, enter the raw data starting in line 100. Be sure to put data in 
line 101 or the program may not run properly. List lines 675 to 885 for addi- 
tional information on entering raw data. 



LIMITATIONS 

This program requires 4K Bytes for storage and should execute in 7K Bytes of 
memory in most systems. 



. -■'••. '.>■".■ .■' • 

' J..*-"-". * ' 

■ . ' v>- ■■■• 
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101 GO TO 440 
1 CiM Qfi TO 300 



iE:0O 


DfiTfl =50? =75, . 


£"39 


DflTfl 10 


300 


READ Ml 


305 


LET Yi=0 


310 


LET N3=Nl-i 


315 


FOR 1=1 TO HI 


3£0 


REfiD Yd) 


3 £5 


LET Vl=Yi+Yi:i) 


330 


NE^T I 


:335 


LET Y3=Y1..--N1 


340 


LET Y1=0 


345 


FOR 1 = 1 TO til 


'-'. cr ru 

Z' -...,' ^L.' 


LET Yi=Yi+(Y(I 


355 


t-wyr T 



yy J , y5j . yyy? . yy99? . 99999 



I J I * !. Y 1. 1 J ~Yc! .1 

360 LET Sl=Yl.---'r-!l 

365 REflli ri£ 

3 70 LET Y1=0 
375 LET N4=ri£-1 
380 FOR 1=1 TO N£ 
385 REHD YCIJ 

39a LET Y1=Y1+Y(I) 

395 riEiKT I 

400 LET Y4=Y1.--N£ 

405 LET Y1=0 

410 FOR 1=1 TO N£ 

4 1 5 LET Y 1 =Y 1 + i Y C I ) - Y4 ) *^ ( Y ( I ) -Y4 ) 

4£0 riE>-:T I 

4 £5 LET S£=Ylx-M£ 

430 LET Y5=Y3-Y4 

435 GO TO 470 

4 40 RERD Y ? N 1 ? Y3 ? S 1 ? Z ? ri£ 5 Y4 , S£ 
445 LET N3=Nl-i 

450 LET N4=H£-1 

455 LET Y5=Y3-Y4 

460 LET S1=S1«S1 

465 LET S£=S£»;S£ 

470 PRIMT THB(8:i5"STRTISTIC"5TflEi:30);"SflMPLE 1 " 5 TflE!:45! ? "RhMPLE £" 
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.-lyy PRIHT "SfiMPLE rEriri" ?TfiBf30J ? ¥3? Y4 

4S5 PRINT "SAMPLE STD HEUIRTIOH" ? THE [30) ? SQR CSl ) ? SQR (S£) 

490 PRIHT "SFiriPLE SIZE" ? THE (SWJ ? HI j H£ 

495 PRIHT "SfiMF-'LE UflRinHCE"? TflB(30) ? SI ? S3 

500 PRIHT 

505 PRIHT "DIFE OF MEfiHS'- ? TAB (37) ? Y5 

51,5 PRINT 

530 PRINT "HIGHEST POSTERIOR DENSITY IHTERUflLS" 

531 PRINT "DIFFERENCE BETWEEN HEFlNSs " 

ggg p|r-T|--4X 

530 PRINT" HPD LEUEL" ? "LOWER LIN'S "UPPER LIM" 

535 PRINT 

540 RERD P 

545 IF P=10 THEN 885 

550 LET P=(i~P)-^'-£ 

555 LET T=SQR(LOGil.^-pt£) ) 

56© LET X=£. 515517+0. 80£S53*^T+0, 01 03£8*^T^T 

565 LET X=T-><.-ni + l,43£78SKT+e. 189£69*T*^T+0. 001308^T*^T^T) 

570 LET G 1 =X* '-. 1 +K^K ) ^''4 

575 LET G£=X*^ ( l + lS^i-^s^rt-'S* i i+5*^><^>s--"16) ) ^32 

580 LET G3=-5^K*^Cl--17*^><*^H--''i55Sfl + i9^X*«Vy^ 17^^(1 +3*^X^X^19) ) )-^"l£8 

585 LET G4=1-i43£»;X^>s>"19£0^f l+776*«X^X.^'"148£*^(+79*^X*^X/"776) ) 

590 LET G4=-945*^K^nl + 19£0»^X^>i/£45*G4)-^-9£160 



-C i 



'-dL- 






600 LET S3=S1.-^"N1 

605 LET C1=S4.^' CS3+S4) 

610 LET C£=S3---fS3+S4) 

615 LET H6=N4x'-fN4-£) 

6£0 LET H5=H3/-!N3-£) 

6 £5 LET F= C N6*^C 1 +N5*-C£ ) « ( N6*^C 1 +H5*"C£ ) 

630 LET F=F^" i !;N6SN6«C 1*^01 ) .^- f H4-4) + (N5^N5*^C£»;C£) / CN3-4) ) 

635 LET E=F+4 

640 LET H= ( B-£ ) *= ( N6»^C 1 +-H5^C£ ) ■■-"E 

645 LET T5=:K+Gl.---B+G£^-Bt£+G3.^-Et3+G4./-Et4 

65Ei LET T6=SQRfH*^ fS3+S4) )*^T5 

655 LET Y6=Y5-T6 

66ti LET t'9=Y5+T6 

6 65 PR I NT ( 1 -£'*P ) * 1 titi ? Y8 j Y9 

670 GO TO 540 

675 PRINT " THIS PROGRAM COMPUTES THE HIGHEST POSTERIOR DENSITY " 

680 PRINT "IHTERUflLS FOR THE DIFFERENCE BETWEEN TWO POPULflTION MEANS" 

685 PRINT "USING EAYESIRN STflTISTICflL INFERENCE. THE DATA MAY BE" 

690 PRINT "ENTERED IN EITHER OF TWO WAYSs " 

695 PRINT 

700 PRINT " A. TYPE THE DATA ON ONE LIHE AS:" 

705 PRIHT 

710 PRINT " 100 DATA HI jNI j Ml? SI j H£3 HE? ME? S£" 

715 PRINT " RUN" 

7£@ PRINT 

7 £5 PRINT " WHEiRE? " 



469 



74a 

■yA<=: 



'50 






I I I.! 
I 1 -_i 



:!0@ 
305 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



810 Pf 



k:-im 



::4y 



iiy 



yfcti 

865 

870 

C« I ■_* 

880 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
STOP 



L = DUMMY TO RGREE WITH CONDI F»»^»^ INPUT"' 
iPNTER '0' flS FiN flPPROpRlHTE NUMBER)" 
ril=SIZE OF SflMPLE 1" 
nl=HRITHMETIC MERN OF SRMPLE 1 '^ 
S1=STHNIiHRlJ BEUIHTION OF SRMPLE 1 CERSED ON'" 

Pj N£!iM£?S£5 ARE THE SOME FOR SflMPLE 2" 
TYPE THE DflTfi ON MORE THRN ONE LINE flS? " 



1 00 IiRTR Nl J Y C 1 ) ? Y i £) ? Y ( 3 ] ? Y ( 4 ) '" 

101 IiRTfl Y(5) ! . , , 5 YCnl 3 " 
10£ DhTR N£jZf 1) !Z!£J sZ rS) ? Z(4) " 
103 DRTR Z(5J 5 = = » 'ZiNr-'l " 
RUN " 

JHERE? " 
Ni=THE SIZE OF SRMPLE 1" 



NS-THE 
'i' (13?! = 

Zd) ' 1= 



^ s i" 



OF SflMPLE £" 

"0 Nl ARE THE El EMENTS 



HRJ 



"HE ELEMEN! 



QF SAMPLE i " 
OF SAMPLE £" 



■• IF DIFFERENT HIGHEST POSTERIOR DENSITY INTERUPLK ARE" 
"DESIRED? THEN THEY MAY BE ENTERED RSs " 



£00 DATA Li5LejL35L4?L5 
WHERE ALL L=L1 jLEjES? . . 



hRE such THAT" 



iyy END 
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.iU. |- 1- crurrli,. fc. :■ 



100 iJflTR 0?;--;05t 



";i ^ l[\ ^ ',-' -i q '■■I'-i . 



F?i m 



3THTISTIC 



srmplf: 1 



JSHMPLt: 



:5F!i'1PL.E MEJii-i 

SRriPL.E STU hpuirtiom 

SRriPl E size: 

SFiriPLE iJRRIRMCE 



c:i:-i 



HI FT" OF ntif ir-is t; 

H I GHE£;T F'OS;! E:R I OF' HEMS I TV I hm-:RUF 
ni F-FEFJENCE EETWEE:ri llERRSs 



LEIJEI... 


L 


OFJEF 


L 


..IM 


UPPER LIM 


jPi 











8.R85R41 


I'o 






Fi 




9.591447 


90 






l-:;i 




10. 1985E 


9 '5 






Fl 




10. 64831 


99. 9 











18,68091 


99 . 9 '9 






Fl 




13.78fo4£ 


99 . 999 






Fl 




14,73568 
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DUAL PLOT: 

DESCRIPTION 

Dual Plot will plot two functions of a single variable. The plot may be done 
on a standard teletype or terminal without the need for a special plotter. 



U SE RS 

Anyone who would like to plot equations could use this program. The equations 
could be generated from one of the curve fitting programs included in this 
section. 



INSTRUCTIONS 

Enter the first equation in line 10 and the second equation in line 20, as 
follows: 

10 LET Y = f(X) 
20 LET Z = f(X,Y) 

Then type RUN. If only Y = f(X) is desired, then let Z = in line 20 or vice 
versa. For additional instructions list the program. 



Four K Bytes of on line memory is required by this program for storage and 
execution. 
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IJllfU , PLCTT 



"=H 



9 LET 

IS GO TO b£;0 

11.5 IF J=0 THEN IS'D 

1£0 RETURN 

1£;5 PRINT 

138 PRINT ^WHflT RRE FrilNs FMRMjyMIH? XMfllK? PELX" 5 

1 3o I NPUT y 5 Q 1 3 QiE: ? Q3 ? Q4 

140 LET Q5= (01-001/60 

145 LET 06=0 

150 LET J=£ 

155 FOR X = 02 TO 03 STEP 04 

160 GOSUB 10 

165 IF 06=0 THEN 315 

170 Ih 06 = £0 THEN 185 

175 PRINT " > "? 

ISO GOTO 195 

185 PRINT " - "5 

1 90 LET 06 = 10 

195 IF Y > 01 THEN 305 

£00 IF Yi>01 THEN 305 

£05 IF Y < 00 THEN 305 

£10 IF YKO0 THEN 305 

£15 LET 07 = 00 + £^^05 

££0 LET Z=Q7+0.5SO5 

££5 IF T>0 THEN 435 

£3W IF Z<Y THEN 438 

£35 IF Ti>0 THEN £50 

£40 IF 2<Y1 THEN £58 

£45 ijOTO 49 ti 

£50 IF Z-Y>=£SQ5 THEN £89 

£55 IF Z-Y>=Q5 THEN £76 

£60 PRINT " +'■; 

£65 GOTO 37E1 

£70 PRINT " + >■; 

£75 GOTO 378 

£80 PRINT "+ "5 

£85 GOTO 370 

£90 PRINT " "I 

£95 LET 07= 07+ 3'*^Q5 
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OQS 



■i ~^ 



305 pRIHT "OFF SCRLE. (XjtjZJ =" I X; 'S "? Y? " ? " ? VI 

3 1 GOTO 380 

315 PRINT 

3£ti IF P7=99 THEN 335 

33y ppiriT "(NOTE: Y IS PLOTTED '-^'5 Z IS '.'? HMH '0' IS COMMuM PUIMT) " 
335 PRINT 

34y PRINT "FOR :K5 TOP = "jQPi" BOTTOM = "IQS?" INCREMENT = "JQ4 
345 PRINT "FOR FCTS: LEFT = "jQO?" RIGHT = ";Q1;" INCREMENT = " 5 Q5 
350 PRINT 

■". ETET- OC'THT i' T T T T T T T 

3A0 PRINT 



.-^,_,j_. ^p. -f-|_|7j ji_ijrj--j gyp; 

330 LET Qb=Q6+i 

385 IF INTCZ)>Q1 THEN 

390 PRINT 

-"' I^ _' -. itl-i-i i =1 

400 LET P7=99 
405 PRINT 
-■PINT 

fPE '3' TO STOP NOW? OR ELSE SPECIFY NEW UHLUES" 
430 PRINT "FOR FMIN? FMflX? KMINjKMFi^^:?DELK" ? 
435 GOTO L35 
430 IF T1>0 THEN £90 
435 IF Z<Y1 THEN £9© 
440 IF Z-Y1>=£*^Q5 THEN 470 
445 IF Z-Y1>=Q5 THEN 460 
450 PRINT " . "j 
455 GOTO 475 
460 PRINT " . "5 
465 GOTO 475 
470 PRINT ". "? 
475 LET Ti=l 
480 IF T>0 THEN 33© 
485 GOTO £95 

490 IF Z-Y>=£*Q5 THEN 580 
495 IF Z-Y>=Q5 THEN 54© 
500 IF Z-Y1>=£«Q5 THEN 53© 
505 IF Z-Y1>=Q5 THEN 5£0 
510 PRINT " 0"l 
515 GOTO 380 
5£0 PRINT " .+"? 
5 £5 GOTO 380 
530 PRINT ". •+•"? 
535 GOTO 380 

540 IF Z-Y1>=S?«Q5 THEN 57© 
545 IF Z-Y1>=Q5 THEN 56© 
550 PRINT " ■*-."', 
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ifoH 



595 

600 

605 
610 
615 
6£0 

bC.-_> 

63£i 
635 
64Gi 
645 
65Gi 
655 
660 
665 
670 
675 

QQQ' 



QyTij ': 
PRINT 
GOTO :; 
PR I NT 
GOTO :" 

IF Z-'- 
PRINT 
GOTO ; 
PRINT 
GOTO :; 
PRINT 
GOTO ; 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
9 END 



"DO 



■i>=£-SQ5 THEN 610 
'i>=Q5 THEN 600 

j80 

" + .'■? 
::80 

"0"j 

:!S0 

"THIS PROGRRM 14 ILL SIMULThNEOUSLV PLOT TWO FUrCTIONS" 
"OF fi SINGLE UHRIfiBLE K. TO USE? TYPES" 

10 LET Y= (THE FIRST FUNCTION OF XJ " 

£0 LET Z= (THE SECOND FUNCTION OF K RND'-OR V ) " 

RUN" 

"THE FUNCTIONS Y AND Z IIFlY BE FiNY LEGITIMftTE 'EflSIC'" 
"EXPRESSIONS. INTERMEDIflTE UflRIflELES MflY BE DEFINED" 
"USING INTERMEDIATE LINES? IF THE FUNCTIONS ARE TOO" 
"CONPLICRTED TO FIT ON ONE LINE," 
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EXP-DISTRI: 

DESCRIPTION 

This program calculates confidence limits for data that is exponentially 
distributed. ='he number of samples should be greater then eleven. 



USERS 

Individuals involved in analyzing experimental data will find this program 
useful . 



INSTRUCTIONS 

Enter the raw data starting in line 100 before program execution. Use the 
following format when entering the data: 

100 DATA X(1),X(2),X(3) 

where 

X( ) are the random samples or observations. 

After the data has been entered type RUN. For additional information on data 
entry list the program. 



L IMITATIONS 

Exp-Distri should execute in 3K Bytes of memory in most systems without any 
problems. 
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EXP-iUSTRI 



10 PRINT 

11 PRINT 
1£ PRINT 
13 PRINT 
15 LET 1=0 
£0 LET >a=0 
30 LET a£=0 
100 liFlTR "lESS 
£99 DflTR 1E38 

300 DhTh . 5? . 6745? . 6? . S4ib? . 7? 1 . 036? .8? 1 . £S£'j . 9? 1 . 645? . 95? 1 .966? 

:3 1 DhTh £ = 3£6 ? . 99 ? £ . 576 ? . 995 ? £ . 897 ? . 999 ? 3 .£91 

305 REflli K 

310 IF X=1E3S THEN 980 

315 IF ;K=i:~1E38) then 6000 

3£0 LET 1=1+1 

330 LET Xl=Xl+X 

340 LET X£=:^£+y«;K 

35£i GO TO 305 

900 PRINT 

1000 PRINT"UflLUES OF SAMPLE STATISTICS" 

1010 PRINT" " 

10£0 F^'RINT 

1030 PRINT"SIZE OF SAMPLE" ? TAB (38) ? I 

1035 LET K6=X 1.^-1 

1040 PRINT"SAMPLE MEAN" ? TAB (38) 5X6 

1050 LET ui=ri«;K£->as>::ii.^(i«(i-i)) 

1060 PRINT"SAMPLE UAPIANCE";TAB(30) ?U1 

1070 PRINT"SAMPLE STD TiEUIRTION";TAE(303 JSQRfUl) 

1£00 PRINT 

1£05 IF Kll THEN 7800 

1£10 PR I NT "CONFIDENCE LIMITS ON POPULATION MEAN" 

1£15 PRINT" " 

1££0 PRINT 

1£30 PRIHT"CONF LEUEL" ? TAB (£0) ; "LOWER LIM" ? TAB (48) ? "UPPER LIM" 

1£40 PRINT 

1£60 FOR C=l TO 9 

1£70 READ P?Z 

1£75 LET Z=Z/SQRCI) 

1£80 LET R=ZSK6.-(1-ZJ 

1£90 LET B=Z»^X6--"i:i+Z) 

1 300 PR I NT P 5 TAB f £8 :i ? i-:;6-B 5 TAB i 48 ) ? K6+A 

1310 NE^T C 
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1 420 
6080 

6010 
fc.0£0 

6030 
6040 
6045 
6090 
6 1 00 
6110 
6 1 £0 
70£i£i 

7010 

7020 
7030 
7040 
'-■I 999 



GOTO 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

GOTO 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

END 



"THIS PROGRAM COMPUTES CONF I IJEtiCE LIMITS FOR AN UNKNOl-JN" 

"POPULRTION MEAN? GIUEH THAT THE POPULATION IS KNOWN" 

"TO BE EXPONENT I ALLY DISTRIEUTEIU " 

"THE CALCULATIONS ARE MADE ON THE ASSUMPTION THAT" 

"AT LEAST ELEUEN SAMPLES ARE TAKEN AT RANDOM FROM THIS" 

" POPULAT I ON , TO USE 5 TYPEs " 

100 DATA KiD^KiP) fKi3)f KW)" 

WHERE THE KCIl'S ARE SAMPLE OESERUATIONS" 
9999 

"YOUR SAMPLE OF SIZE"? 15 "IS TOO SMALL TO ASSUME THAT THE" 
"CENTRAL LIMIT THEOREM APPLIES AND THAT YOUR SAMPLE MEANS" 
"ARE NORMALLY DISTRIBUTED. THIS WILL LEAD TO ERRONEOUS" 
"CALCULATIONS OF THE CONFIDENCE LIMITS. YOU SHOULD USE" 
"AT LEAST ELEUEN SAMPLES. SORRY. " 



EKi-'~l il o f Kl l;'J ! iiJll 






ijcji ijrc; rip 



1PLE, ST'hTIS 



^^,^ 



nzE UP" sfimple: 

5FiMPL-E MEFihi 
iHMPLE UFlRIFir'lCE 
:;FiMPi E STD DEUX Fill OM 



1 . 1 iZi9F!£4; 



confihence limits or-i POpuLHTiori MEFiri 



CONE L.E1.JEL 



LOWEF? I IM 



iiPPER LIM 



id. '5 
. 6 

. 9 

Fi . S'':. 
. 93 
'?' . 99 

lA Cii::|i: 



,;:■. /::.bl9y 



.J Z'~.> -I C;:':;4 

1 = cici {''bic: f' 
1 » '::! 1 oir'o cj 



4=696124 
vj. c'i::'5';ni44 

1 . Fi 1 S'0£' 
17.35P97 
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LEAST SQUARES: 

DESCRIPTION 

This program uses the least squares method to fit raw data to one of three 
curves. The raw data is represented by two variables, X and Y. The three 
curves are: Y=A*EXP(B*X) ; Y=A+B*X; and Y=A*(XtB), exponential, linear and 
power. 



USER? 

Experimenters will find this program easy to use and the results easily in- 
terpreted. 



INSTRUCTIONS 

Before Least Squares is run the raw data must be entered into the program. 
Enter the data into data statements starting in line 2. Use the following 
format for entering the data: 

2 DATA X(1),Y(1),X(2),Y(2),X(3) 



The values of A and B are listed for the curve selected. To select the curve 
type a 1, 2, or 3 when asked 'which curve'. For additional information list 
the program. 



LIMITATIONS 

The source code will require 3K Bytes of memory for storage. Execution will 
require 9K Bytes of available memory. The DIM statement on line 220 sets up 
a two dimensional array. This array is used through out this program. If the 
DIM statement is reduced in size the required execution space will also be 
reduced. 
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2. 'jL. 

£130 

£05 PRINT "iJHRT TYPE OF CURUE DO YOU mHT TO FIT; '^ 

£10 PRINT "LINEHR=l5 E vpoNENT I fiL=£ ? P0!4ER=3"J 

£15 INPUT Qi 

££0 DIM D(£50?£) 

££5" PRINT 

£30 LET 1=0 

£35 LET 1=1+1 

£40 READ Dil? 11 jDlI j£:i 

£45 IF D(Ij1)<>1E35 THEN £35 

£50 LET Q£=I-1 

£55 LET S9=0 

£60 IF Ql=l THEN £86 

£65 IF Qi=£ THEN 335 

£78 IF Q1=3 THEN 485 

£75 GOTO £30 

£80 LET 39=1 

£85 GOSUE 505 

£ 90 PR I NT "LI NEAR s Y=R+BS«y W I TH H= " 5 Q8 ? " AND B= " ? Q9 

£95 GOSUB 580 

300 FOR J=i TO 0£ 

305 LET W7=Q8+Q9»:Di: J? 1) 

310 LET Z7=w7~D!:j3£j 

3 15 LET Q4= 1 00*=-Z7 ■■Ti f J , £ 1 

3 £0 PR I NT D l J ! 1 ) ! D C J j £ ) ? W7 ? Z7 ? Q4 

3£5 ne>^:t J 

330 STOP 

335 FOR J=l TO Q£ 

340 LET D(J!£)=LOGiD(j5£3 ) 

345 tiEXT J 

350 GOSUE 505 

355 PR i NT ■' EXPONENT I HL s Y =fl3KEXP C B^^K ) W I TH H= " ; EKP C Q8 ) ? " AND B= " ? Q9 

:360 GOSUE 580 

365 FOR J=l TO Q£ 

370 LET W7=EXpiQ8+Q9^DCJjl)) 

375 LET i48=EXPCD(J?£) 1 

380 LET Z7=W7-W8 

385 LET Q4=100»;Z7.--W8 

390 PRINT DiJ^n jW85W7jZ7jQ4 

395 NEXT J 
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4\d0 STOP 

405 FOR J=i TO Q£ 

4 1 LET D ( .J J 1) =L .OG ( D i J ? 1 1 ) 

415 LET D(Ji.£]=L0Gi:DiJ5£;l J 

4£0 HE>a' J 

4iE:5 GOSUB 505 

430 PRINT "POWERS Y=H»^i:XtEl WITH H=" ? EXP i'Q8) J "flHD E=";Q9 

4I-!5 GOSUB 530 

440 FOR J=l TO Q£ 

445 LET W7=EXp!:DCJ?in 

450 LET W8=EXP!:D(J?£) :i 

455 LET W9=EXPu38)^W7tQ9 

460 LET i34=W9.-"W8- 1 

465 LET Z7=W9-W8 

470 IF Q4<0 THEN 485 

4 75 LET Q4= I NT ( 1 £i00*^Q4+0 . 5 ) --' 1 

480 GOTO 49£i 

485 LET Q4=INTf 1000*^04-0.5)^10 

490 PRINT W7?W8jW9?Z7!Q4 

495 NEXT J 

500 STOP 

505 LET Q3=0 

510 LET Q4=0 

515 LET Q5=0 

5£0 LET G!6=£i 

5 £5 LET Q7=0 

530 FOR J==i TO Q£ 

535 LET Q3=Q3+DfJjlJ 

540 LET Q4=Q4+IJ(J?£) 

545 LET Q5=Q5+D(J? 1)*^Di:Jj£) 

550 LET Q6=Q6+ ( D t J? 1 ) ) t£ 

555 LET Q7=Q7+ C D ( J ? £ J 3 1£ 

560 NEXT J 

565 LET Q9= fQ£»^Q5-Q3*:Q4) y^WZ^Qb-QBtd} 

57£i LET Q8=!'Q4-Q3*:Q93 --"QE 

575 RETURN 

580 LET QGi= (Q£^Q5"Q3*^Q4) --""SQRf (Q£*5G!6-Q3t£) *^ uP.£*Q7-"Q4tSJ 3 

585 PRINT 

590 PRINT "COEFFICIENT OF CORRELATION = '" 5 Qw 

595 PRINT "COEFFICIENT OF DETERMINATION = " 5 Q0t£ 

600 PRINT 

605 PRINT "DO YOU WANT TO SEE fl COriPflRISON OF THE HCTUflL Y'S RND" 

610 PRINT "THE ESTIMATED Y'S. l=YESj 0=NO"; 

615 INPUT P9 

6£0 IF P901 THEN 715 

6£5 PRINT 

630 PR I NT " X-ACTUAL " ? " Y-ACTUAL " ? " Y-EST I M " ? " D I FFER " ? " PCT- D I FF " 

635 PRINT 

640 RETURN 

645 PRINT 

650 PRINT "THIS IS R LINEAR REGRESSION PROGRAM FOR DATA IN TWO " 
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r- 


■^i^^. 


6fc 





6€ 




fc 


l" 





€ 


l'" 


5 


fc 


£ 





fc 


i~ 


5 


fc 


y 





£ 


9 


5 


r' 


P 


£i 


r' 


P, 


. I 


r' 


1 


l-i 


7 


1 


D 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
END 



'URRIi=iEL.ES? K AND Y« FROM INPUT POINTS? DESCRIBED BY" 
'THEIR K AND Y COORDINRTES? AN EQURTION IS PRODUCED THPT 
'BEST FITS THESE POINTS IN THE LEfiST-SQUflRES SENSE. TO" 
'USE THE PROGRflM? TYPE THE FOLLOWING:" 

' 2 DflTR Xll)?Yii)? >•:(£) J YCSI ?,..... ? a(N)?Yi:N)" 
C WHERE >UlJ?Y(l! IS THE FIRST POINT? XCS)?" 
YC£) IS THE SECOND? AND SO ON UNTIL ALL" 
POINTS HR'JE EEEh: ENTERED. ADDITIONAL DATA" 
STATEMENTS 3-199 MAY BE USED AS NEEDED.)" 

'THEN TYPE 'RUN' ." 




/ 



\ 



/ 



\/- ■\A--^ '^''2^:-:: 
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PAIRED! 

P ESC R IPTION 

Paired compares two groups of raw data. It uses the Mann-Whitney rank test 
to compare the two groups. 



U Si R S 

This program best lends itself to individuals in the statistics field. 



I N9TRUCTIQ N g 

Before running Paired enter the data starting on line 900. List program lines 
10 to 87 for instructions on entering your data. 



L I MI TA T IO N ? 

There is MAT Read statements on lines 120 and 150. The source code for this 
program will store in 2K Bytes of memory. Execution length is 12K Bytes due 
to the amount of space reserved in the DIM statement on line 90/ 
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1 ;> 

3 13 
50 

ftfi 



yy 

100 

150 
170 
180 
1 90 

£00 

O i :~i 

C' >• jT-i 

iE'30 

""' s7| i!!^ 

310 
3£0 

339 

360 
370 
3301 
390 

400 
500 

510 
5S0 
530 
54'0 
550 
560 
570 
580 

qqoQ 



REM DE£;CRIPTIuN: COMPRRES TWO GROUPS OF BflTfl EY MERNS OF 
REM THE MRHN-WHITMEY TWO SfiriPLE RANK TEST. 
REM INSTRliCTIONS: PUT TflTfl IM LINE 900 RMD FOLLOW IMG. 
REM FIRST DRTR ARE M? Ih RMD C. M RMD M ARE THE TWO SRMPLE 
REM SIZES? RriD C IS THE CRITICRL URLUE FOR THE MRNN-WHITMEY 
REM TEST WITH FRflCTIONRL COJNTS. IF M OR H IS GRERTER THAN 30? 
REM THE DIM STATEMENTS IN LINE 90 SHOULD BE CHANGED. 
REM AFTER ntth AND C ARE PUT IN? THE NEKT DATA SHOULD BE 
REM THE FIRST SERIES OF TEST DATA? F'OLLOWED BY 
REM THE SECOND SERIES. 
D I M A ( 30 ) ? B ( 30 ] ? D C 9'00 ) 
READ M? N? C 
MAT READ A CM) 
MAT READ EfN) 
FOR I = 1 TO M 

LET 9. = (I - 1) * ii 

LET >■; = Ad) 

pfih: J = i jn H 

LET uCQ + Jl = y - Bi-Jj 
NEKT J 

ne>::t I 

LET R = M '*^- N 

LET I = 1 

If nil) <= nil+ll THEN 390 

j_E:t T = D C I ) 

LET D i I J = D C I + 1 ) 

LET DCI+l) = T 

IP T = 1 THEN 390 

LET 1=1-1 

GO TO 320 

LET 1=1+1 

IF I < P THEN 3£0 

LET C = C + i 

LET X = INTiC) 

LET F: = C - X 

LET L = BfK) •#• (1 - R) + DtK+l] »•: R 

LET U = D(X+1J ^ CI - R) + Tif.K] '^- R 
PRINT "CONFIDENCE INTERUflL BY RANK SUM TEST. " 
PRINT "LOWER LIMIT = "?L? "UPPER LIMIT = ";U 
STOP 
END 
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PHI I 



30i;;i TiFiTFl 4? 6? £.5 

31 U TJFlTFl 19 Pi J lF,i3? 1613? 148 

3SB iJRTFl 1175 lir-iB? lc"3? 145? M?? 159 



Ciir-iFTDEnCE ir-iTE.:F'ii!=iL B't' F'Fir-lK SUM TE'5T. 
LOICR LIMIT - e=':. UPPER LIMIT 



The critical value C is composed of two parts. The integer number and it's 
decimal. The decimal fraction determines the symnetry of the confidence 
calculations about the two groups of data. The fraction '0.5' is used to 
generate equal symmetry. The integer number, which should be between and 
(M*N-1), is used to set the calculation point about both ends of the data 
groups; as the confidence interval is calculated about the lower portion 
of the data and the upper protion of the data. A value of (M*N)/2 for the 
integer would yield a confidence interval about the middle of the two data 
groups. For this condition C would be equal to ( ( (M*N)/Z + .5). A value 
of '2.5' for C would be used to determine the confidence interval about 
the data end points. 
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PLOT: 

DESCRIPIIOM 

This versatile plotting program will plot from one to six functions of a 
single variable simultaneously. The plotting may be performed on any stan- 
dard teletype or terminal. 



USERS 

Experimenters should find this program very useful for displaying a variety 

of functions. These functions are all plotted on the same scale so these 

functions can be compared over the plotting interval. 



INSTRUCTIONS 

Before the program is run the equations must be entered starting in line 100 
of the program. For detailed information about the data entry list program 
lines 3200 to 3560. 



LIM ITAT IONS 

This program should execute without incident in most systems with 4K Bytes of 
available memory. 
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100 GO TO 3£00 

£i330 READ Hi ? H? I ? Jj El ? Fi 

£045 LET G=(Fi-El).-^-40 

£060 LET Gl=G-^-£ 

£075 PRINT 

£090 PRINT" " 5 "MULTIPLE PLOT OF THE FUNCTIONS "? 

£105 FOR K=1T0 Hi 



£1£0 


GOSUB 3575 




£135 


IF K=H1THEN 


£180 


£150 


PRINT'S "5 




£165 


NEXT K 




£180 


PRINT 




£195 


PRINT" "?'■■ 




££10 


GOSUB 30£0 




-•"1 "t -icr 


GOSUB 3050 




££40 


print";k-uhlue" 


££55 


LET X=H-J 




££70 


PRINT 




££35 


LET L1=0 




£300 


LET ft=X+J 




£315 


IF K>I THEN 


£945 


£330 


PRINTX? 




£345 


LET Y=E1-G 




iZ.'Jt'kj 


PRINT" "? 






LET Y=Y+G 




£390 


IF Y>F1THEN 


££70 


£405 


IF HESiH-Y3< 


;githen 


£4£y 


IF fll<£THEN 


£360 


£435 


IF HESfE-Yl< 


:githen 



-iORIZ INCREMENT ="?i 



?645 



£450 IF HK3THEN £360 
£465 IF HEStC-YXGlTHEN 
£480 IF fll<4THEN £360 
£495 IF RES CD-YXGl THEN 
£510 IF HK5THEN £360 
£525 IF RES (E-YXGl THEN 
£540 IF fll<6THEN £360 
£555 IF HESiF-YXGlTHEN 
£570 GuTO £360 
£585 PR INT "R" 5 
£600 LET Ll=Ll+i 
£615 IF L1=R1THEN £S70 
£63y GOTO £375 
£645 PRINT"E"5 
£660 LET L1=L1+1 
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ii !_ J 



ITU 



"Mjrw op7fi 



E7£0 LET Ll=Li+l 
£735 IF Ll=HlTHEri 
£750 GOTO £375 
PRINT" n" 5 
LET Li=Li+l 
IF Li=fllTHEH 



i... I <-'-~' 



£a4U 

£855 

£900 
£915 
£93W 
£945 
£960 
£975 
£990 
30 '05 
30£0 
3035 



;!05a 

ii0fc5 

:10SS 

5095 

niQ 

•I ■*. ;-'5 
U40 

;ii55 

111 70 
U85 
i£y0 
;:£15 
:;£30 
:i£45 
:i£6@ 
>£7^" 
:!£90 
;:305 
33 20 

:;350 



PR I NT "E"? 
LET Li=L1+l 
IF Ll=fliTHEH 

PR INT "F" 5 
LET Li=Li+l 

IF Li=HlTHEH 

GOTO £375 

PRINT 

GOSUE 

GOSUB 

PRINT 

GOTO 3030 

PRINT THE (5) 5 El? 

RETURN 

PRINT" "j" "....; 



3y5u 

30£0 



i flE K -H-t 



RETUR 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
GO TO 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT- 
PRINT 
PRINT 
PRINT' 
PRINT' 
5365 PRINT' 
;i380 PRINT' 
;:395 PRINT' 

:141£1 



N 



"TYPE '8' TO STOP 5 
" NUN ? XM I N 5 KNflX 5 DEL> 



OR GIUE NEW sjflLUES OF" 

?HMiN?HriH;-:"j 



fll ? h? I 



-'i.-14-b 



:ijFi 



"THIS PROGRRM PLOTS ONE TO 81^ FUNCTIONS OF X SIMULTRNEOUSLY, 
"ALL FUNCTIONS HflUE THE SflME UPPER flND LOWER LIMITS FOR THE" 
"PLOT„ THE FLfCTIONS ORE CRLLED HsE^CjD^E^F RND ARE PLOTTED" 
"IN THAT ORDER OF PRIORITY. WHERE PLOTS WOULD OUERLflP? THE" 
"LOWER PRIORITY FUNCTIONS ARE SUPPRESSED. URLUES EXCEEDING" 
"THE SELECTEE EOLWDS ARE DISREGARDED. ENTER INFOR MAT I ON FOR 
"A RUN IN THE FOLLOW I Wli FORMATS ■■ 



:i4£5 



PRINT' 

PRINT' 



r-x 
100 

£00 

£10 
££0 

£30 
£40 
£50 



DATA 
LET 
LET 
LET 



NUMsKMIN? fmtiK, DELX? HMIN? HMAK 
A= ANY 'EASIC^ FUNCTION OF K 



E= ANY 'BASICS 
C= DITTO FOR 



FUNCTION 
K RND.-OR 



OF K AND--OR 
H RND.-OR E" 



A' 



SIMILARLY 
SIMILARLY 
SIMILARLY 



FOR 
FOR 
FOR 



D3 
E) 

F) 
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ii440 

;i455 

;I470 

:i485 

;150G1 

■.15 

:i538 

1545 

J 5605 

575 

590 

S05 

:lbS£l 

:!635 

;;fc.50 

:ifc.65 

:!6£-£l 

:.95 

1710 
i7c;5 
740 

i755 
'7a 

'35 

500 

515 
530 

545 

'■'.f.fi 



PRINT" RUH" 
IF 00=1 THEH 3860 
PRIMT 

PR I NT "WHERE NUN IS THE NUMBER OF FUNCTIONS GIUEN (l-b)? KM IN HNH' 
PRINT"XMflX ARE THE LOWER RND UPPER LIMITS FOR X? DELX IS THE IN- 
PRINT"CREMENT FOR >U AND HMIN FiND HMflK ARE THE LOWER flND UPPER" 
PRINT "LIMITS FOR THE URLUES OF THE FUNCTION. NOTE THAT THE HOP- 
PRINT"! ZONTRL INCREMENT IS ALWRVS CHMAX-HMIN) -'-40. " 
STO P 

368£i 

3710 

3740 

3770 

3800 

3830 

THAN SIK FUNCTIONS SPECIF I ED. STO P. " 



IF 
IF 
IF 
IF 
IF 
IF 



K=1THEN 
K=£THEN 
K=3THEN 
K=4THEN 
K=5THEN 
K=6THEN 

PR I NT "MORE 

PRINT "A- 

RETURN 

PRINT"E' 

RETURN 

PR I NT "C 

RETURN 

PR I NT "D' 

RETURN 

PRINT" E- 

RETURN 

PR I NT "F' 

RETURN 

END 
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PLOTPTS 1 

DESCRIPTION 

This program plots data points of a single variable. The plot is a type of 
bar graph. The plot is done on any standard teletype or terminal. This pro- 
gram will provide a linear or log plot. 



Anyone who gathers data can use this program to make the data vi sable. This 
would include experimenters, engineers, astronomers, housewives, etc. A 
housewife could use this program to plot the grocery usages for her family. 
From this, usage trends could be visually indicated. 



INSTRUCTIONS 

Type RUN and the program will 
for execution. For additional 



prompt for all of the information necessary 
information list the program. 



There should be no problem in executing this program in most systems, provi- 
ding there is sufficient memory space available. The program is set up to 
handle 256 data points. The source code requires 3K Bytes for storage. With 
the DIM statement in line 1060 set for 256 this program will require 9K Bytes 
for execution. There is a FILES statement in line 1100. This statement should 
be removed if your system does not allow file operations. 
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PLOTPTS 



1010 REM THIS IS PLOTPTS 

1020 REM THIS PROGRFiM PLOTS POINTS IH fl BAR TYPE GRAPH 

1030 REM INPUT MAY BE FROn FILE NAMED SCR7 BY CHANGING 

1040 REM THE #0 IN THE INPUT STATEMENT TO #1 

1050 REM OTHERWISE THE INPUT IS FROM THE KEYBOARD. 

1060 DIM Y(£56j? Sfc'56} 

1070 PRINT" IF YOU WANT A LINEAR PLOT TYPE ill? OR (£) LOG PLOT" 

1080 PRINT 

1090 INPUT P 

1100 FILES SCR? 

1 1 10 PRINT 

1120 PRINT" INPUT K LIMITS? CMIN, J TO (MAX.) STEP (Xl)" 

1130 PRINT 

1140 INPUT Kl5X£jX3 

1150 PRINT 

1160 PRINT 

1170 IF P=e GO TO i£40 

1130 PRINT " INPUT (Y) LIMITS? (MIN. ) AND (MAX.:!" 

1190 PRINT 

1£00 INPUT QlfQS. 

I£i0 LET M=50/'CQ£-Q1 1 

1££0 LET Q3=tQ£-Ql Jx-50 

1£30 IF P=l GO TO 1350 

1£40 PRINT " INPUT LOGCY) LIMITS? fMINi = 10»^5«H AND (MflXl =105«5«N1 " 

1£50 PRINT " REM YOU CAN'T CROSS ZERO? AND DON'T FORGET THE SIGN" 

1£60 PRINT 

1£70 PRINT 

1£80 INPUT Q1?Q£ 

l£9ti LET M=50.---" CQ£-Q1 ) 

1300 PRINT 

1310 PRINT "TYPE IN THE SCALE FACTOR TO INSURE NO ZERO CROSSING" 

1320 PRINT "WHERE S=(imm^} . EK. S=i? OR Iw? OR lOOJ " 

1330 PRINT 

1340 INPUT S 

1350 PRINT 

1360 PRINT 

1370 PRINT 

1380 PRINT "INPUT YOUR (Y) DATA" 

1390 PRINT 

1400 LET 17=1+1 iK2-Kl)/-K3) 
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1410 FOR hi=i TO L.'- SiEP 1 
14S0 liiPUT #0? Yifl) 

1440 PRIriT 

1450 PRIMT 

1470 LET S$='^ ( LOG PLOT 3? ISCRLE FACTOR)" 

X49h if P=£: GO TO 1500 

1490 LET ss=" (LlnEFlR PLOTJ ? iSCflLE FACTOR) " 

1500 PRINT 

1510 PRINT 

1520 PRINT "X";ThE(9) PQlsTflBiSS) 5S$?TflB(6S) 5 Q£ 

1530 PRINT 

1 5 40 PR I NT "n NCREMENTS ) " ? TRB C £8 ) ? " DELTFi Y = " riRE i 3£ ) ? Q3 Tf RE ( 49 ) J S 

1550 PRINT 

1560 PRINT TflEd?) ? "I +- 1 + 1 4 1 4 1 + 10" 

1570 FOR H=l TO L7 STEP 1 
1580 IF P=£ GO TO 1650 
1590 IF V(Hl>Qi GO TO 1610 
1600 LET Y(H)=Q1 



16E0 LET YfHJ=Q£ 

1630 LET Zi=M*^(Yi:H)~Ql) 

1640 IF P=l GO TO 176£i 

1650 LET C 1=0. 434294 

1660 LET El=Yi:fl)--S 

1670 IF B1=0 GO TO 1780 

1680 LET Ll=Ci*LnGCE11 

1690 GO TO 1710 

1700 LET L1=Q1 

1710 IF L1<Q£ GO TO 1730 

17P0 LET L1=Q£ 

1730 IF Ll>Qi GO TO 1758 

1740 LET L1=Q1 

1750 LET Z1=ri^i:Li-~Ql) 

1760 LET Z=!l.5)+Zl 

i 1 I kj L.t. ! !!■::■—.-■•.■;■ 

1780 LET y4=iXi+M3*^i:R-l) j 
1790 PRINT y45TREC16); 
1800 FOR G=l TO Z 

1810 PRINT thbci7);":k"; 

18£0 NEKT G 

1830 PRINT TAB (68); " I" 

1840 NEKT fl 

1 850 PR I NT TAB ( 1 7 ) ? " I + 1 + 1 + 1 + T + 1 " 

1868 PRINT 

1870 PRINT 

1880 PRINT "DO YOU WANT ANOTHER PLOT ?" 

18-90 PRINT 

1900 INPUT C$ 

1910 PRINT 

19£0 PRINT 

1930 PRINT 

1940 IF C^="Y" GO TO 1078 

1950 IF C$="YES" GO TO 1878 

I960 STOP 

1970 END 
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POLYNOMIAL FITi 

DESCRIPTION 

This program performs a least square fit to equate bivariate data to a poly- 
nomial. This is done using an orthogonal polynomial method. The limits are 
an nth degree polynomial and 100 data points. The polynomials are fitted 
one degree at a time in ascending order. At each level the index of deter- 
mination is listed. 

USERS 

This is one of the most powerful data fitting programs available. Any indi- 
vidual who analyzes or gathers data will find this program ectremely useful 



INSTRUCTIONS 

To use the program input data as follows: 

10 DATA N,D 
where 

N is the number of points to be read 

D is the lowest degree to be fit 

100 DATA X(1),Y(1),X(2),Y(2),X(3),.. 
where 

X( ) and Y( ) is the raw data 



For additional instructions list the program. 



L IMI T AT I ON S 

Lines 34 and 39 contain DEF FN statements. For more then 100 data points, 

increase the DIM statements in line 25. At the present this program will re- 
quire 12K Bytes for storage and execution. 
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h'i !! 



1 y iju i Li 1 yyy 

19 RERl! M?N 

;5i3 BIM flCljl !B(15J sSflS) ?G(16) jUilSl 

iss DIM QCi00) ?pcis0) ?:-:ii00i J Yf 100) jCC100) 

30 LET Z=0 

33 LET = 1 

34 DEF FNLiP) = » 43439448 « LOGCPi 

35 LET 09 = lE—ly 

36 LET 08 = IE 19 

33 LET Ob = IE— 38 

3 9 DEF FNR if] =1 NT ( P*: 1 0000004- , 5 3 ■-'' 1 000000 

40 LET K=l£ 

45 LET N=N+-1 

50 IF H > 13 THEN 1870 

55 IF M < N THEN £170 

60 IF M >100 THEN 1840 

70 LET T7=Z 

75 LET T8=Z 

80 LET N7=Z 

100 ISHTfl 1538. 1? 1.5? 14.67j£5 l£.76je.5? 13. 15?3? 11.78 

i i;.! J. j-sri r ri .:• . j ! i . d ( ? 4- ? •_! . •;■■_! < =+ . -j ? 1 4- . o ? is ? j , -z' 5 D . 5 5 1 . fc:= i ? t 

10£ DflTR 8. 91 3 6. 5? 15.67 
300 FOR 1=1 TO M 
3 1 READ a( D ! Y ( 1 3 
3£0 LET y7=W7+y(i:! 
330 LET T7=T7+YfI} 
340 LEi l8=i8+Y(I)t£ 

350 ne:^:t I 

360 LET T9=CriftT8-T7t£l^-mt£-M3 
370 PRINT 

330 PRINT "L E H 8 T - 8 Q U H R E S P L Y N N I h L 
390 PRINT ■ ■ . - - .,....,., 

39£ PRINT 

400 PRINT " NUMBER OF POINTS ="JM 

410 PRINT " MEAN UflLUE OF K =":y7x-M 

4£0 PRINT " MERN MflUJE OF Y =";T7--M 

43a PRINT " STD ERROR OF Y =";R0RiT9-! 

440 PRINT 

450 PRINT " NOTE: CODE FOR 'WHAT t^EKT-^^ Tss" 

460 PRINT 

470 PRINT " = STOP PROGRAM" 

480 PRINT " 1 = COEFFICIENTS ONLY" 
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490 
5i30 
519 

530 
540 
550 
560 
570 
580 
590 

600 

6 1 
6S0 
630 
640 
650 
660 
670 
68£i 
690 

700 

710 
730 



76M 

i I ~~' 

780 
790 
S£10 

801 
80£ 
803 
810 
82© 

'-Jl_ i 

830 
831 
840 
844 
846 
847 
849 
850 
860 
870 
880 
890 
90ti 



r -. i ! M 

PRINT " 

PRINT 

PRINT 

FOR 1=1 TO M 

LET P [ I } =2' 

LET Q(lJ = 

HEKT I 



= ENTIRE SUMMflRY" 

= FIT NEXT HIGHER DEGREE' 



TO 11 



LET flCIl 



LET BCD = Z 
LET S(I) = Z 
NEXT I 

LET E1=Z 
LET F1=Z 

LET iai=ri 

LET N4=i< 

LET 1=1 

LET Kl=£ 

IP ri=0 THEN 700 

LET K:i=N4 

LET W=Z 

FOR L=l TO N 

LET W=W+TCL)»^QCLi 

NEXT L 

LET S!;i)=W.--Wi 

IP T-j--j4>=0 THE'N 109y 

IF I-M>=0 THEN 1090 

LET E1=Z 

FOR L=i TO M 

LET h9 = HES f Q ( L ) ) 

IF fl9 < 09 THEN 860 

LET X9 = HESiXCLJ ) 

IF X9 < 06 THEN 844 

REMs SO X & Q NOT TOO CLOSE TO ti.O FOR LOG 

LET L£ = FNLCX9) + £SFNL!H91 

IF L£ < 38 THEN 850 

REUS SO X 8: Q TOO BIG FOR X^Qt£ 

LET El = 07 

L-b- i Lc ~- oo 

GO TO 870 

IF H9 < 1 THEN 860 

IF h9 < 08 THEN 850 

REM: SO Q TOO BIG FOR Qt£ 

GO TO 830 

LET El = El + X(Ll ^ H9t£ 

NEXT L 

IF L£ - FNLfWl) > f-38) THEN 900 

LET El = 

GO TO 910 

LET El = El. ■■-HI 
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910 LET flri+l)=Ll 

930 FOR L=i TO r-| 

940 LET U=(:---;(LJ-E13*^Q(L)-FlspCLJ 

'550 LET P ( L ) =Q ( L 3 

960 LET QfL)=U 

S'70 LET Ify = flESiU) 

980 IF U9 < 09 THEN 1630 

990 IF U9 < OS THEN 1020 

1000 LET N = 07 

1010 GO TO 1040 

1020 LET W=j.j4Usg 

1030 NEXT L 

1040 LET Fl= W.--W1 

1050 LET BiI+£j=Fi 

1060 LET Wi=W 

1070 LET 1=1+1 

1080 GOTO 700 

1090 FOR L = 1 TO 13 

1100 LET G(Li=Z 

1110 NEXT L 

11S0 REMs 

1 130 LET GiSj = 

M40 FOR J=l TO N 

1150 LET Si = Z 

1 1 60 FOR L = £ TO N+ 1 

1170 IF L=£ THEN 119© 

1180 LET GCL) = GiL) - fi(L-i )^GfL-l ) ~ E CL-l l^^G (L-£} 

1190 LET SI = SI + SCL-i)*G(L3 

1?00 NEXT L 

l£i0 LET UCJl=Si 

1££0 REMs 

1£30 LET L = N+1 

1£40 FOR !£=£ TO N 

1£50 LET G(L)=Gi:L-11 

i£60 LET L=L--1 

1£70 NEXT I£ 

1£S0 LET GC£1 = Z 

1£90 NEXT J 

1300 REM: 

1310 PRINT 

13£0 LET T=Z 

1330 FOR L=l TO M 

1340 LET CfL;i=Z 

1350 LET J=N 

1360 FOR I£=l TO N 

1 3 70 LET C ( L 3 =C C L 3 *^X C L 3 +U ( J 3 

1380 LET J=J-1 

13-90 NEXT I£ 

1400 LET T3=V(L3-Ci:L3 

1410 LET T=T+T3t£ 
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1430 Ir nOri iHEH 1466 

1440 LET T5=0 

1450 GOTO 1470 

1460 LET T5=T.---iri-N) 

1470 LET Q7 = 1 - T/' (T9^ (M-1 j ) 

1490 PRINT "POLYFIT OF DEGREE" ?ri-l ? 

1500 PRINT "INICH OF rCTERM =";FHR|-Q73 5 

1510 GOSUE ££00 

1540 IF R=0 i'HEH 9999 

1550 IF R=3 THEH 1810 

1555 PRINT" 

II 

1560 PRINT TflEi:83 5 "TERM "?" COEFFICIENT" 

1570 PRINT 

1580 FOR J=l TO H 

1590 LET I£=J-1 

1600 PRINT I£?U(J3 

1610 NEXT J 

16£0 IF R=l THEN 1780 

1630 PRINT 

1640 PR I HT " ;k-hCTUhL"?" Y-fiCTUFiL" 3 " y-CHLC"5" DIFF"? 

1650 PRINT " PCT-niFF" 

1660 PRINT 

1670 FOR L=i TO n 

1680 LET Q8=Yi:LJ-Ci;L} 

1690 PRINT ft (LJ ? Y(L) sCiL) jQS? 

1700 IF C(L)=0 THEN 1730 

1710 PRINT 100«Q8.^-C(LJ 

17£0 GOTO 1740 

1730 PRINT "INFINITE" 

1740 NEftT L 

1 750 PP'INT 

1760 PRINT " STU ERROR OF ESTIMATE FOR Y ="5SQRCT5) 

1770 IF K=N THEN 9999 

1780 PRINT 

1790 GUSUE ££00 

1800 GOTO 1540 

1810 LET N=N+1 

18£0 IF ri<N THEN £170 

1830 GOTO lti90 

1840 PRINT 

1850 PRINT "PROGRRM SIZE LIMIT IS 1@0 DfiTfl POINTS." 

I860 GOTO 9999 

1870 PRINT "ELEUENTH DEGREE IS THE LIMIT." 

1880 GOTO 9999 

1890 PRINT "MINIMUM INSTRUCTION = Oj ALL = OTHER t? WHICH,.."? 

1900 INPUT 00 

1910 IF 00=0 THEN £090 

19£0 PRINT 
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1 940 
1 950 
1 960 
1970 
1 990 
1985 
1 990 

£000 
£010 

£030 
£04£i 

£fifc.0 



£090 

£100 

£110 
2 1 30 

■Z> i .-i r.i 

u- i -tkJ 

£150 
£ 1 €.£i 

£170 
£180 
£190 
££00 
££10 
£££0 



PRINT 

PRINT "FITS LEflST-SQUfiRES POLYHOniRLS Tu BIURRIflTE DRTfl BY" ; 

PRINT " ORTHOGONRL POLYNMLS. " 

PRINT 

PRINT " LIMITS i 11 -TH DEGREE FIT S- MfiX OF 100 PRTR POINTSn 

PRINT" BUT FITS HIGHER THRN DEGREE 5 MRY GIUE POOR RESULTS." 

PRINT " POLE IT flLLOHS USER TO SPECIFY THE LOWEST DEGREE POLYHOM"? 

PRINT "IflL TO BE FIT" 



PRINT" 
PRINT" 



AND THEN FITS POLYNOMIfiLS IN ORDER OF RSCEHDING DEGREE." 
RT ERCH STAGE? THE ItmEX OF DETERMINATION IS PRINTED? AND' 



GOING TO NE:KT HIGHER FIT? OR" 
GETTING ONE OF Ti40 SUMMARIES? OR 
STOPPING THE PROGRAM," 



PRINT" 

PRINT" 

PRINT" 

PRINT 

PRINT "TO USE? TYPE: " 

PRINT 

PRINT " 10 DATA N;D" 

PRINT " I WHERE N = NUMBER OF DATA POINTS TO BE READ" 

PRINT " _ AND D = INITIAL [LOWEST] DEGREE TO BE FIT) 

PRINT " 100 hATA K(i) ? Yt 1) ?;-:f£) ?Yf£l ? , . , . jX CN) ? YiNi " 

PRINT " ( CONTINUATION ON LINES 101 -£99 AS NEEDED!" 

PRINT " RUN" 

GO TO 9999 

PRINT 

PRINT "TOO FEW POINTS FOR FITTING DEGREE" ;N-1 

GUTU 9999 

PRINT " WHAT NE>a"; 

INPUT R 

RETURN 

END 
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REGRESSION: 

DE SCRIPT I Q.N 

This program performs a regression analysis on data for up to six variables, 
This program may be used to fit a random sequence to an observed variable. 
This is one of the most versatile regression programs available. 



J!!f«iic.JWBiilii.XiJ!rf. 

Experimenters will find this program an invaluable aid in matching data to a 
particular system. One interesting example would be to put a microphone out 
in a rain storm and digitize the noise the rain makes. This will be the in- 
put data for the Y variable. The generating equation is: 

Y=A+BX1+CX2+DX3 

Then three (3) random number functions are used for inputs to the next three 
variables; XI , X2, and X3. When the program is run the three coefficients: B, 
C, and D can represent the gain of three noise amplifiers. When the outputs 
of these three amps are mixed the sound will resemble the initial rain storm 
noise. Five generators could have been used, however three is sufficient for 
this type of analog generation. 

INSTRUCTIONS 

If transforms are to be used see the following instruction sheet. Data how- 
ever is entered starting in line 100, for the first variable. Then variable 
two starting in line 200, variable three in line 300 and so forth. The equa- 
tion that is fitted is: 

Y=A+BX1+CX2+DX3+EX4+FX5 
where 

Y - is variable one 
XI - is variable two 
X2 - is variable three 
and so forth 

After your data has been entered type RUN. 

LIHITATIQN3 

Lines 702 and 882 contain a Restore statement. Matrix statements are in line 
711 and 712. Lines 718 and 721 contain MAT Read statements. Lines 732 to 738 
contain MAT = ZER statements. Line 761 contains a MAT = INV( ) statement. The 
source code for this program will require 3K Bytes of memory space for storage. 
Regression will require 13K Bytes of available memory for execution. If more 
then 61 data points per variable are required the DIM statement in line 711 
will need to be increased. 
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ADDITIONAL PROGRAM INFORMATION: 

LIME MUMEERS 41-699 RRE FREE FOR USE flS DFiTfl STFiTEMENTS? flS REQUIRED. 

HLL UHLUES FOR ONE UflRIflBLE RRE GIUEN IN DflTfi STflTEriENTS? FuLLuWED BY 

FiLL DFiTFl FOR H SECOND ORRIF1ELE5 AND SO ON. 

ONE NFIT TO FlRRflNGE INPUT IS TO PUT ALL UflLUES OF UflRIflBLE 1 flT LINES 

100-199, HLL FOR iJflRIflELE £ flT LINES e00-e99j ETC. 

IF SEPflRflTE TAPES ARE MflDE FOR EfiCH UflRIflBLE? THE FULL USE OF INPUT 

FLEXIBILITY CAN BE OBTAINED. 

ACCEPTS UP TO 61 OBSERUflTIONS OH UP TO 6 UARIAELES. THE ORDER 
OF UARIAELES IN THE INPUT IS IMPORTANT ONLY IF TRflNSFORMATIONS 
ARE NOT BEING USED. IF NO TRANSFORMED UflRIflELES RRE GIUEN? THEN 
THE PROGRflM FITS A LINEAR FUNCTION FOR THE FIRST DATA UflRIflBLE 
IN TERMS OF THE FOLLOW I HG UflRIABLES. BY USING TRflNSFORMSj flNY 
FUNCTION OF RN'-f' (OR ALL) OF THE INPUT UARIAELES MAY BE USED AS 
ANY UARIAELE IN THE ANRLYSIS. 
TRANSFORMS ARE ENTERED BEFORE THE RUN? AT LINES 1000-1099 ASs 

im'K LET XiJ} = ANY FUNCTION OF Mil)? U C £)?... ?U tR J 



WHERE :KfJ) IS THE J-TH UARIAELE IN THE ANALYSIS CJ=1 IS THE 
DEPENDENT UARIAELE)? AND THE Utl] ARE THE INPUT DATA UARIAELES. 
THUS? ONE MIGHT ENTER DRTfl FOR THREE UARIAELES Ull)? Uf?)? 
AND U 1:3:1? BUT RUN THE ANALYSIS WITH X ( 1 :i =U i:£:i AS THE DEPENDENT 
UARIAELE? AND THREE 'INDEPENDENT' UARIAELES? BY ENTERING 
TRANSFORMATIONS LIKE THE FOLLOWING AT LINES 1 ©OS- 1003: 

1000 LET ::--:i:i j =ui:£i 

1001 LET Xf£)=LuG(Uil)+Ui:3:i 3 

100£ LET KOI =Ui: ll+XiPl^EXPf-l-UiSJ :i 

1003 LET y(4) = iUC3:i-l)*^£ 

NOTES IF TRANSFORMS ARE USED? THE PROGRAM EXPECTS AT LEAST 
THREE SETS OF INPUT UARIAELES. IF THERE ARE ONLY TWO SETS OF 
UAL ID DATA? A SET OF ZEROS MAY BE INPUT FOR THE THIRD UARIAELE. 
HOWEUER? THIS DUMMY SET SHOULD NOT BE USED IN DEFINING THE 
TRANSFORMATIONS. 
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Oi-~ ppJKiT 

i26 PRINT 

£8_PRINT 

70S REhD El 

7fil IF El = iE38 THEM 1161 

-70ip PC'sTRRE 

703 PRINT " 

DO YOU WANT INSTRUCTIONS f0=Nn, 1=YES) WHICH "? 

704 INPUT 00 

705 IF 06 = THEN 709 

707 PPINT"N=# UhLUESj R=# IN UflRIflELES? S=# OUT UflRIflELES? D IS H CODE" 

708 PRINT"UHLUE CDs 1 = TRANSFORMS HflUE BEEN SPECIF I Elb S = OTHERWISE. J " 

709 PRINT "' Nj Rj S? D = "l 

710 INPUT Pl?Ri?Nl3li 

7 i IDIMY (6-5 61 } 5 Z (6? 61 ) j S (6? 6) ? T (6? 6) ? WC5? 53 

7 1 £D I ME C 5 J 1 ) ? F ( fc. ? 1 ) J G C 6 J ? K ( 6 ) ? U ( 6 ) 

713LETN=N1-1 

714LETR=R1-1 

715LETP=P1-1 

716IFri=lTHEN 7S1 

717LETN=R 

7 1 SMflTREflDZ i N+ 1 j P-+- 1 1 

719G0SUE 818 

7S0GOTO 73£ 

7eiMflTREflDY lR+1 ? P+1 ) 

7££G0SUB 818 

7£3F0RK=1T0P+1 

7£4F0RL=lT0Ri 

7£5LETUfL}=YfL.?KJ 

7E6NEXTL 

7£7G0SUE 1000 

7£8F0RL=1T0N1 

7£9LETZrL?K)=:-:iL} 

730NEXTL 

731NE^<TK 

73£Mhty=zer (Sj p+1 :i 

733LETP£=1.-P1 
734MHTF=7ER(N+lji) 
735MhTW=ZERi:N?N) 
736MflTS=ZER (N+1 , N+1 3 
7 37MHTT=ZER ( N+ 1 ? N+ 1 } 
738MhTE=ZER(N? 1) 
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JFTiRK=lTOp-i-l 

irnRi=iTON+i 

iLETF CI? 1 ) =F ( I ? i ) +Pc*^Z f I ? K) 



74£F0RJ=iTriM+i 

743LETS i I J J) =S 1 1 ? J) +Z C I ? K) *Z C J? K) 

744NEXTJ 

745riE;-:TI 

74bNEXTK 

747F0RI=1T0M+1 

748FuR.J=iTur-i+l 

7 49LETT i I ? J ) =S C I ? J ) -P 1 *^F f I j 1 ) *^F ( J 5 1 ) 

750MEXTJ 

751nFKTI 

75£F0RJ=lTnFi-i-l 

753LETG U) =SQR {P£^T i...h J) ) 

754riE:KTJ 

755riHTS=ZERCN!N'i 

756F0RI=1T0N 

757F0RJ=1T0H 

75SLETS 1 1 J J) =T ( I + l J J+1 \ 

7'59riFXTJ 

760MEKTI 

76inHT[4=iriU(S3 

76£F0R1=1TUN 

7fo3FuRJ=i lOri 

7b4LETE ( I ? i ) =B C 1 5 1) +T ( 1 , j+l ) i«U! ! I , J3 

765NE;KTJ 

766HEKTI 

767LETH=Fi:i?l) 

768LETS7=0 

769LETS8=0 

770FORI = lTur-l 

77 lLETfl=fl-E ( I ? 1 ) ^^F ( I + 1 5 1 ) 

r i' lh'ic-i". I 1 

773F0RK=1T0P+1 

774LETYf i!K)=fl 

775F0R.J=1TUH 

776LETY ( 1 ? K 3 =Y C 1 ? K ,1 +E ( J j 1 ) "^Z i J+ i , K ) 

777MEyTJ 

778LETY l £? K J =Y ( 1 ? K) -Z U ? K3 

779LETYi3?KJ=100»^Y(£?K3.^Yri?K3 

7 80LETS7=S7+ Y ( £ ? K 3 

7S1LETSS=S8+Y (£? K3 1£ 

73£HEXTK 

7 S3LETH8=P£SSQR ( P 1 ^S8-S7t£ 3 

784LETW7=P£S^S7 

785 PRINT 

6 PRINT" n U L T I U H R I 8 T E f: 1 1 R U F F 

PRINT 

788 PRINT 

789 PRINT'-UfiRIRELE'S "REGR OjEFF% "MERN UflLUE"?"STD DEU" 



1 '„' 
i C' i 
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790 PRINT 

79 i PRINT" 1 (CONSTFlNT ="S fl? " ) " ? ^ C 1 ? i ) ? G C 1 ) 

79£ PRINT 

793F0RI=1T0N 

794PRINTI + l,Bi:i? 1) ?F(I + 1j 1) jGd + l) 

795NEKTI 

79bPRINT 

797PRIHT 

79SPRiNT" STflNDflRIi IGUIfiTIOH OF RESIHUflLS = "5WS 

799PRINT" INDEX OF DETERMIHRTIOH (R-SQJ = " 5 1~ fW8^--G ( 1 ) ) tS 

800PRINT" ZERO-CHECK ON MERN RESIDURL = " ? W7 

801PRINT 

80PPRINT 

803RRINT" H C T U fl L U S C H L C U LATE U" 

804PRINT" 

805RRINT"fiCTURL"? '^CRLCULRTED" ? "EIFFEPENCE" ? " PCT DIFFER" 

806PRINT 

807FnRK=iTuP+l 

SoSRRINTZi 1 jK) ? Y( 1 ?KJ ? Y (S?K1 j 

809LETQ=. Is^SGNfYCSjKJ 1 ^TNT (fiBSi IQ^Y (3? K) ) ) 

810IFQ=0THEN 815 

SiilFQOTHEN 813 

81 SPRINT'^ "? 

S13PRINTQ 

814G0T0 816 

81 SPRINT" .0" 

81bNEKTK 

817ST0R 

818REfiDEi 

819IFE1=1E33THEN 824 

820RRIHT 

8£1RRINT"HR0NG fiNOUNT OF DhTh SPECIFIED? PLEASE CHECK. " 

8SSREST0RE 

SeSGOTO 703 

8S4RETURH 

8£5STnp 

1000 PRINT"NO TRHNSFORMS" 

1100RETURN 

1101 PRINT 

1103 PRINT" " 

1104 DflTfl 1 E38 ! ! ? ? M 5 J ? £i 
1195 END 
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STAT li 

DESCRIPTION 

This statistical program calculates the mean, variance, and standard deviation 
for several ser.s of data distributions. 



USERS 

This program will be of use to individuals who work with data bases. Quality 
control engineers, reliability engineers, data gatherers, astronomers, experi- 
menters, statisticians are a few of the types of individuals who could find 
use for this program. 



INSTRUCTIONS 

Enter all of the data starting in line 1, with data 
this program. For information about data format and 
1390. For detailed program information list Stat 1. 



statements before 
entry, list lines 



running 
900 to 



UIMITAI I ON S 

Line 345 contains a Restore statement. This program will store and execute in 
5K Bytes of memory in most computer systems. 
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STMT 1 



3-i0PEHli 00 

345 RESTORE 

350 IE Oy=9E.:'0 THEri 940 

■*"i cr JZT 



-:i-j l£T H=0 
PR T MT " 



Hj:;.] jHMETIC MERH; URRIRNCE? HND SThNDhRD DEUIflTIUH 



360 REhD C 

3F'0 LET H=H+1 

330 IE C=OE£0 THEM 1400 

390 LET S1=0 

400 LET SS = 

410 IE COO THEM 590 

430 PRIHT " 

EuR grouped DflTfl SET"5H?" 



450 REflD Q 

460 LET ^i = 
470 PRINT " 



X-UHL1..1E"! 



EREQUEMCt 



49ti F"OR F = 1 TO Q 

500 REflD ><? M 

510 LET ri = N + M 

5£'0 LET SI = SI +■ mK 

530 LET S£ - S£ +- p\^>-^K 

540 PRIHT ;K? M 

550 NEKT P 

560 GOTO 710 

590 PRINT "■ 



610 PRINT " 



I MD I U I DUAL SET NUMBER " ? H 

1 

SAMPLE UflLUES: 



630 LET N = C 

640 EOR P = 1 TO N 

650 READ K 

660 LET SI = SI + K 

670 LET S£ = S£ + ><^K 

680 PRINT XJ 

690 NEXT P 

700 PRINT 

710 LET fl = S1..-N 

7£0 LET U=r S£-fl»;Sl).--N 
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730 LET Ul=U»ri.-''i:N-l) 

740 PRINT 

758 PRINT "MflXinUM LIKFLIHOOD"? 

7ti:.0 GUSUB900 

770 PRINT " NUMBER OF liRLUES = "?N 

790 PRINT " HRITHMETIC MEAN = " m 

790 PRINT " STFlNIiFlRD DEUIflTION = "ISQRfU) 

800 PRINT " SFiNPLE URRIflHCE = ";U 

810 PRINT 

820 PRINT "UNBIRSED"; 

830 GOSUB900 

840 PRINT " HRITHMETIC MEAN = "5H 

850 PRINT " STflNDflRD DEUIflTION = "sSQRCUr.i 

860 PRINT " UFiRIflNCE = 'SUl 

870 PRINT 

880 PRINT 

890 GOTO 360 

900 PRINT " ESTIMATES" 

910 PRINT "OF POPULATION PARAMETERS" 

980 PRINT 

930 RETURN 

940 PRINT 

950 PRINT "THIS PROGRAM CALCULATES THE MEAN? UARIANCE? AND STANDARD" 

960 PRINT "DEUIATION FOR EACH OF SEUERAL SETS OF INDIUIDUAL UALUES" 

970 PRINT "OR FREQUENCY DISTRIBUTIONS." 

980 PRINT 

990 PRINT "DATA FOR EACH SET OF INDIUIDUAL UALUES IS ENTERED INTO" 

1000 PRINT "THE PROGRAM AS FOLLOWS?" 

1010 PRINT 

1080 PRINT " 1 DATA \h KiDf Ki2) ^ >0:3) ?..... ? Kim" 

1030 PRINT 

1040 PRINT "WHERE THE N UALUES OF THE SET ARE K ( 1 ) THRU KCNK IF" 

1050 PRINT "NEEDED? ADDITIONAL DATA STATEMENTS MAY BE USED TO GIUE" 

1060 PRINT "THE ENTIRE LIST OF UALUES. ADDITIONAL CASES MAY BE" 

1070 PRINT "GIUEN IN SUBSEQUENT DATA STATEMEN^=; IN THE SAME FORMAT." 

1080 PRINT 

1090 PRINT "THE INPUT FOR GROUPED UALUES HAS THE FOLLOWING FORMAT:" 

1100 PRINT 

1110 PRINT " 1 DATA O? N? X(l)? FCIJ? Xr8)? F(£)?...? ;K(N)j FfNl" 

1180 PRINT 

1130 PRINT "WHERE THE INITIAL ZERO SIGNALS GROUPED DATA? THE N IS" 

1140 PRINT "THE NUMBER OF DIFFERENT UALUES TO BE GIUEN? AND THE F C I :i ' 

1150 PRINT "ARE THE NUMBER OF TIMES THE Kil) OCCUR. DATA STATEMENTS' 

1160 PRINT "FOLLOWING MAY BE USED TO EKTEND THE LIST AS NECESSARY?" 

1170 PRINT "AND BLOCKS OF GROUPED DATA MAY BE INTERN I >tD FREELY" 

1180 PRINT "WITH STRAIGHT LISTS DESCRIBED AEOUE. " 

1190 PRINT 

1800 PRINT "AS AN EXAMPLE? SUPPOSE WE WERE INTERESTED IN THE MEAN" 

1810 PRINT "AND STANDARD DEUIATION OF THE NUMBERS 1 ? 5j4? £? 6j7s 4? 7" 

1880 PRINT "AND ALSO FOR THE DISTRIBUTION CONSISTING OF 5-PS?" 

1830 PRINT "3-4' S? 6-7' S? AND £-iPS. THESE TWO CASES COULD BE RUN" 
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1 


240 


1 


E'50 


1 


B..m 


1 


£70 


1 


-'fm 


1 


E:90 


1 


300 


i 


310 


1 


320 


1 


330 


1 


340 


1 


350 


1 


360 


i 


370 


1 


I' {' o 


1 


330 


1 


:"i90 



PPINT "BY TYPING THE FOLLOW IMG 

PRINT 

PRINT " 1 IiflTH 8? i5 5?4?£" 

PRINT " £ DhTh b?7?4?7" 

PRINT-'" 3 DFiTFi 0?4?1j5?4j3" 



HH \ hi 



1 jc; 



iKj ! 
i( 1 



1 4 £10 



PRINT " 

PPINT ■■ 

PRINT 

PRINT "OR EQUIUflLENTLY:" 

PRINT 

PR! I NT " 1 jJFlTFl 8 5 1 ? ti! ? 4 ? £. ? €■ ? 7 ? 4 ? Z ? ? 4 ? 1 j -j ? 4 ? 3 ? 7 ? t' s 11? £ " 

PRINT " RUN" 

PRINT 

PRINT "NOTE THhT STflTEMENT NUMBERS 1 THRU £99 PRE flUfllLRBLE" 

PRINT " " 

PRINT "FOP CONTINUFiTION OF THE DPTR FIELD." 

lipTfl 9E£0 

END 
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rifi T 
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? c' '"' "' u "' ? •^: ■"''■::' b c: ? c: '-:■'" 



hlJM 



m. I TririET i; C MEFiM ? ^ JFiR I Firii::E: ? FiriD F.T Fir ilJFlRTi IJEFi I FiT I OM 



IMUIFiinUFiL SE:T MUriBER 



i'lFi;-: I iii.JM L, I k:e:l„ i i-ioon est i HFrr ej 

ijF F'ijFULFfr lOM PF!RRMETEF:"E; 



riUMEER OF iJhL.LIES 
HRITFiriETIC ilERri 
STRMLiRRti UERTRTIOM 
SRMPLE iiRRIRMCE:: 



783971 
. SRPiF' 



e;eti estimrtes 

OF" F'OFI il RT I OM PFlRFlriElTRF: 



RRITHMETIC MERri 
srRrfDRRIJ liEUIRTIOri 
iJFiRIFliiCE! 



0591 
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STAT 2 : 

DESCRIPTION 

This program does a statistical analysis on one variable. Once the data for 
the variable is entered the program calculates 34 different statistical 
quantities for the data. The data may or may not be weighted. In addition 
the program calculates a ten class frequency distribution summary. 



Vf S* imn I \ \-f 

Anyone who gathers data for any purpose such as pollsters, surveyers, engi- 
neers, experimenters, even fishermen may find uses for this program. For 
example a fisherman may enter the time of the moon or tide or location 
versus the number of fish caught. The program will then determine the most 
likely conditions to catch the most fish. 

I NST R UCTIONS 

Data must be entered in one of two formats. The two formats are for either 
weighted or unweighted data. They are as follows: 

(1.) FOR WEIGHTED DATA 

10 DATA 1,X(1),F(1),X(2),F(2),X(3), 

(2.) FOR UNWEIGHTED DATA 

10 DATA 0,X(1),X(2),X(3) 

Run the program for additional instructions or list lines 1055 to 1255. 



LIMITATIONS 

The length of this program is 6K Bytes. The amount of space required for 
proper execution is a function of the number of data sets in the DIM state- 
ment in line 7. With the DIM set for 100 data points, 14K Bytes will be re- 
quired for execution. 
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7-' [j j; Pi >:: I i yy 3 ? l.n 1 yf;i 1 ? u C 1 1 id J ? Y n yy 1 

135 DFlTR 1E355 3E33 

136 PRIMT 

137 PRINT 

140 PRINT "COMPUTfiTIiJNS ON THE DRTH flRRRY 

145 PRINT 

150 REflli N 

155 LET J=0 

160 LET 1=1 

165 LET J 1=0 

170 IE K=10 THEN 835 

175 LET 11=0 

180 LET K1=0 

185 LET L1=0 

1 90 REhD >•', ( I ) 

195 LET Yi:i)=y(I) 

£00 IE X(I1=1E35 THEN £60 

£05 LET Ulin = l 

£10 IE N = THEN ££5 

£ 1 5 RERD W C I j 

££0 IE Wii:f=0 THEN £30 

££5 LET J=J+i 

£30 LET I=I+i 

£35 LET 11 = fti:i-l) + II 

£40 LET Jl = Hd-l) + Jl 

£45 LET Kl = W i l-l ) *X 1 l-l J +K1 

£50 LET Ll=W!:i-iJ«>ai-l)t£+Ll 

£55 GOTO 190 

£60 LET 1=1-1 

£65 PRINT "NUMBER OP URLUES ="5l 

£70 PRINT "NUMBER OP NONZERO WEIGHTS ="5.J 

£75 PRINT "SUM OP WEIGHTS =";ji 

ES0PRINT "SUM OP NRLUES ="lll 

£85 LET X£ = K1-<J1 

£90 PRINT "WEIGHTED MERN ="5 IKS 

£95 PRINT "UNWEIGHTED MEAN =";il.'-I 

LET Mi=0 

LET M£=0 

LET DCi:i=Xt:il-X£ 

LET H=l 

GOSUB 10£0 

LET S=D f n t£;«W ( 1 ) 

LET Sl=D(i:i 



30U 


305 


310 


3 1 5 


3£0 


3£5 


330 
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335 LET S;3=r! ( 1 J tG«U r 1 ) 
:34yLET S3=:D 1 1 J t3 
345LET S4=ri i 1 J t4 



350 


LET S5=0 




LET S6=HfiS(Ii(i)) 


360 


LET X3=X(i) 


j"! i'"i.-.J 


LET 'M=Kil) 


:'' i"* k1 


FOR H = 3 TO I 


:lT'Zi 


IF XCFiJ >= K3 ThlEN 390 


380 


LET K3 = yrfij 


-': t-'t fir 


GO TO 400 


390 


IF XCRIO X4 THEIi 400 


395 


LET M4=Xi:H) 


400 


LET B(H)=;-:(H) - ;■•'£ 


405 


GOSUE 1020 


410 


LEIT S = IiiflVtSS^WiH) + S 


415 


LET S5 = ( X ( H ) -K ( H" 1 J i t£ 



430 LET Sl=H*^Ii!:Fi)+Sl 

435 LET S£=DCR)t£»^WiFl3+S£ 

430LET S3=D Cfl) t3+S3 

435LET S4=D Cfi) t4+S4 

440 LET Sfo=HES (luFO J +S6 

445 NEXT fl 

450PRIMT "MIHinUM UflLIJE="5ft3 

455PRIHT "riflyiMUil UFlLUE="5V4 

460 PRINT "RfiHGE =";K4~K3 

465 PRINT "WEIGHTED SUM OF SQUfiRES =";L1 

47a LET S=SQR C S/" C J 1 - 1 ) 3 

475 PRINT "yRRIRNCE ="?St£ 

480 PRINT "STRNDRRD DEUIflTION ="iS 

485 PRINT "STRNIiRRIi BEUIRTION OF MERM =" , S^'-SQR f Jl i 

490PRINT "COEFFICIENT OF URRIRTION =" J 100^«S.--X£ 

495 PRINT "STUDENT'S T =" ? XE^SQR ( Jl } /S 

500 LET S5 = S5.---'fr-Tl 

505 PRINT "MEAN SQUARE SUCCESS I UE DIFFERENCES ="5S5 

510 PRINT " CMERN SQ SUCC DIFF) xiUflRlHNCFI = ■' ; S'=;..-St£ 

515 LET N=l 

5£0 LET Nl=l 

535 LET K=l 

530 IF yfK3=><i:K+l) THEN 560 

535 IF XCKJ^-UK+IJ THEN 558 

540 IF XCK+13 >XrK+£) THEN 555 

545 GOTO 560 

550 IF ;-;(K+lJ >=>■:( K+£j then 560 

555 LET n=N+l 

5 60 IF DiKi=0THEN 610 

565 IF D(K)>0 THEN 598 

570 IF DiK+iJ<0 THEIN 618 

575 IF DCK+13>0 THEN 605 

580 IF D(K+£)<=0 THEN 610 

585 GOTO 605 
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90 IF TJiK+D^.e THEj! 605 

95 IF In:K+-i)>0 THEN 6 19 

00 IF lHK+£)<=0 THEM 61© 

05 LET Hl=Ni+i 

10 LET K=K+1 

15 IF K<= IS THEri 530 

£0 IF XC 1-11=0 THEM 650 
IF y f I-T) >0 THEN 640 
IP yfn<=g THEN 650 
635 GOTO 645 
£,40 IF ;:<fl)>0 THEN b50 
645 LET Ml=Nl+i 
650 LET Nc:= i £*^ I - 1 ) '"'S 
655 FOR J=l TO I~l 
660 LET K=J+i 
665 FOR l^=K TO I 
670 IF ftiJ)<=XCL) THEN 690 
675 LET N3=:-;iJ:! 
680 LET KiJ)=rtCL) 
685 LET >aL)=N3 
690 NEl-^iT L 

695 he;kt J 

700 IF I--£=IHT(I.--£) THEN 7£0 
705 LET J= I NT i: CI +■ 1 ) .^^'E ) 

710 LET j=yi:ji 

715 GOTO 730 

7£0 LET J=INTiI./£) 

7 £5 LET J= C ;=-a J ) +H i J+ 1 ) ) -£ 

730 PRINT "NEIUflN =";j 

735 LET N3=SQR C ( 1 6*^ I -£9 ) .^90 ) 

740 PRINT "NUMBER OF RI iNS UP RNIi DOWN =";N 

745 PRINT "EKPECTEIi NUMBER OF RUNS =";N£ 

750 PRINT "STD DEU OF NUMBER OF RUNS ="5N3 

755 LET K=1 

760 FOR J=l TO 10 

765 LET IK 100+ J 1=0 

PRINT" iflCTURL RUNS - E>^P RUNS) .^^ (STD DEU) =" ? HES m-N£) x-N3 
80 PRINT 

■PINT "FREQUENCY DISTRIBUTION (TEN EQUAL CLflSSES) s " 

790 LET M3=CX4->=:3)./10 

795 LET N4=>^3+M3 

800 FOR J=l TO I 

805 IF XCJ1<=M4 THEN 835 

810 IF K>i0 THEN 840 

815 IF K=10 THEN 835 

8£0 LET K=K+1 

8 £5 LET M4=X3+K»;M3 

830 IF ftCJ)>M4 THEN 810 

835 LET D(i00+K)=D(100+Kl+1 

840 ne:^^t J 



! ! -' 



I :_.' -- 
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R J=l TO IG 

TNT T| f 1 piCi4-. 



,, HE- 



PR I NT 
PRINT 
PRINT 
PRIMT 
PRINT 
PRINT 
PRINT 



JOMPUTfl" 



ON DEMI AT IONS FROM MEhNi 



c- T rhi'Z- T N 



DEUIHTIONS 
DEUIhTIONS 



= "5M1 
li " Ki--i 



'^NUriEER OF 
"NUMBER OF 
"NUMBER OF RUNS (SIGH CHhHGES + 1) =";ni. 

:i = i + (£»^Mi*^M£:^^-i} 

' = SQR 1 E;«M 1 «M£5* ( £*^n 1 ^MP-M 1 -MP ) ) '■'SQR C ( M 1 +M£' ) t'P*^ C I - 1 J J 
"EXPECTED riUMEER OF RUNS ^"sMS 
"STB DEUIflTION OF NUMBER OF RUNS ="jM4 
" iflCTUflL RUNS - EXP RUNS j^-i STB BEU3 =" ? RBS CN1-M33 .■•■■M4 

"TRENB UHLUE ="?T 

SQR i; 1 ?«SP.-- ( 1 1-3- 1 ) -T'tP J --■■ i I -E; j 

"STB BEU OF TRENB ="?M3 
940 PRINT "( TRENB J/-( STB BEU) ="5T/'M3 
94'5LET M3= I S3..-- 1 ) t£.-- ( S^^S-S^S^- 1 J t3 
950 LEIT M4=fS4..--Jl]./-(S*S-S«S--Jl)t£ 



900 LET r 
905 PRIMT 
9 1 M PR T NT 
PRihT 
LET T 
PRINT 
LET MS 
PRINT 



-1 15 

Z\ 'Zh~a 



955 
960 
965 
970 



' 1 •_' 



PRINT "BETH ONE =";M3 
r"'RINT "BETH TWO ="jM4 
PRINT "MEAN BEU I RT I ON 
PR I NT 

"RECflPITULfiTION OF INPUT: " 



= "5HESfS6i/-I 



TRB i 7 ) ? " UhLUE " ? TRE (17)?" BEU I AT I ONS " '■ THE ( 
TflB(44)?"0RBEREB HRRhV 



S) 5 "WEIGHTS" ? 



PINT 
980 PRINT 
yH5 PRINT 
990 PRINT 
995 PRINT 
1000 FOR 11=1 TO I 

1005 PRINT T (ID ?S(I1) jW(Il) ?Xf ID 
1010 NEXT II 
1015 STOP 

10E0IF B(fl)>0 THEN 1040 
10P5IF B(fl)=0 THEN 1045 
1030 LET MP=M£+1 
1035 GOTO 1045 
1040 LET M1=M1+1 
1045 RETURN 
1050 STOP 

1055 PR I NT "THESE ARE 
1065 PRINT 

1075 PRINT" THE PROGRAM PERFORMS A STATISTICAL ANALYSIS ON" 
1085 PRINT" BRTA FOR OtiE UARIABLE. IT COMPUTES 34 BIFFERENT MEASURES" 
1095 PRINT" FOR AN ARRAY OF WEIGHTEB (AS WITH FREQUENCIES) OR UNWEIGHTEB" 
1105 PRINT" UALUES OF THE UARIAELE. IT ALSO GIUES A iO-CLASS FREQUENCY" 
1115 PRINT" BISTRIEUTION SUMMARV? ANB A RECAPITULATION OF THE INPUT" 
11£5 PRINT" BATA IN TERMS OF BEUIRTIONS FROM THE MEAN AND AS AN ORDEREB" 
1135 PRINT" ARRAY. EITHER OF TWO TYPES OF INPUT ARE SUPPLIEB? BEPENDING" 



INSTRUCTIONS FOR USING THE PROGRAM 
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1145 


PR 


1155 


PR 


1165 


PR 


1175 


PR 


1 1 S5 


PR 


1195 


PR 


1£05 


PR 


1£15 


PR 


1££5 


PR 


1£35 


PR 


1£45 


PR 


1£55 


PR 


99999 E 



I NT" OM WHETHER OR HOT WEIGHTS RRE TO BE GIUEH FOR THE UFiLUES: " 

I NT" IJ FOR UNWEIGHTED UHLUESs " 

INT" 10 BFlTfl 05 Xii)j Kr£)? ;-<i3) 5 .... = . " 

INT 

INT" £j FOR IiRTH WITH WEIGHTS OR FREQUENCIESs " 

I NT " 1 DflTfl 1 ? y, ( 1 ) ? F C 1 ) ? X f £ ) ? Ft £ ) ? K !' 3 ) ? F i 3 } ? » „ . " 

INT 

INT" WHERE THE INITIAL ZERO OR ONE SIGNALS THE PRESENCE OR THE" 

INT" ABSENCE OF WEIGHTS. LINES 11 THRU 99 RRE flUAILRELE FOR" 

INT"AriIiITIONRL INPUT URTA. " 

INT" NOTES THIS PROGRRM PRODUCES OUTPUT CORRESPONDING TO THE" 

INT" LISTING IN THE NATIONAL BUREAU OF STANDARDS HANDBOOK NO. lOL 

ND 
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T-DISTRIBUTION: 

DESCRIPTION 

T-Distribution will perform several types of calculations for normal and T- 

distributions. If it is given 1 or 2 tailed probabilities it will calculate 

the corresponding limits. If it is given a variate or set of limits it will 
calculate the corresponding probabilities. 



*" V/ ttm I \ \jf 

Individuals who would like to analyze most types of data will find T-Distri- 
bution very useful. In the included example this program is used to calculate 
the probability that monthly sales for the next period will be within certain 
limits. The input for the prediction is past sales histories. From this any- 
one in business or who does ordering for a business could benefit by use of 
this program. 



I N S TRUCT IO NS 

Data must be entered into line 100 prior to running the program. The format 
for this data and entry information for normal or T-Distributions is given 
in lines 1360 to 1600 of the program. Standard - t curves are based on a 
mean of and a sigma of 1. 



LI M ITA T IO N S 

Starting in line 70 and continuing to line 95 the DEF FN statement is used. 

These functions are used extensively throughout the program. The program will 
require 5K Bytes for storage and 6K Bytes of memory for operation. 
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U-i 



55 
bi;1 



PS 



iiHTR 



HHiH 
BRTR 



LINES 30-60 UITRLs KEEP 'EM IM? THEY? re EuR INTERPOLhTION 
50L300ei0? 5398278? 5792597? 61791 14? 6554£:1 7? 6914625? 7257469 
7580363 ? 788 1 446 ? 8 1 59399 ? £"4 1 3447 ? 36433:39 ? £:8493Ei3 ? 9£i3 1 995 
933 1 928 ! 9452007 ? 9554345 ? 9640697 ? 97 1 2834 ? 9772499 
98609fc'fc'5 9892759? 9918025? 9937903? 9953388? 996.5£-30 
998 1 3:42 ? 9986=50 1 ? 9990324 ? 9993 1 29 ? 9995 1 t-t- s 
? 9998409? 9998922? 9999277? 9999519? 99996833 






DRTR 
DIM 



9996631 
9999793! 

999999? 



9999867? 9999915? 9999946-? 9999966? 9999979 

(49) 

DEE FNW(tn = (U-M) --'S 
TjEF PHQ i' '. ■ ) =M+' J*S 

DEE EMD ( u 1 =;-: ( u ) -;k C U- 1 ) 

DEE FfSB ( U ) =IJ-UK ( U-- 1 1 *; f D2---'' ( 2*D 1 ) + I U-2 ) ^DS----' ( 6^D 1 ) ) 

DEE ENT ( U ) = 1 - ( f I't 2 J + 1 ) -•- ( 4--^D ) + 1 1 3'*^ ( Ut2 ) 42+8^* ( Ut2 3 +3 ) --" ( 96^Dt2 ) 



4+ I' (Ut2) +1 ) .-■ i:4*-D) + i C f yt2) +3j *^ (5*^ ('.'42) +1 J J ■■■ (96*Tit2) 



9 a 

95 DEE EHZCUJ 

100 GO TO 1360 

cl0& DRTR 99 

210 EOR 1=1 TO 49 

220 RERD :-;(i) 

230 NEaT I 

24a RERL^ l^ ? I'l? o 

r.gg PRINT 

260 PRINT " CRLCULhTIONS FOR H "? 

270 IE D=0 THEN 30© 

280 PRINT "STUDENT'S T-"? 

290 GOTO 310 

300 PRINT "NORMAL "? 

310 PRINT "DISTRIBUTION" 

320 PRINT " HRUING R MEAN OE "?M?"RND H SIGMR OE 



Viz 



:!40 PRINi 



AND 
"CASE 



350 PRINT 
360 PRINT 
370 PRINT 
380 LET C=0 
390 READ H 
400 IE H=99 
410 LET C=C 
420 IE H=4 THEN 
430 IE H=3 THEN 
440 IE H=2 THEN 



iAUING "?D? "DEGREES OF FREEDOM." 
THE PROBABILITY OF fl UARIATE: " 



THEN 
1 



::aw 

^20 
^50 



450 IE H=l THEN 480 
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460 PRINT Ci" ERROR. . .ILLEGAL ELOCK TYPE SPECIFIEB" 

■il7y UO Tu 9999 

480 READ U 

490 LET E1=FNW(U} 

500 IF" D=0 THEN =i£0 

510 LET E1=E1»^FNT(E1) 

5£0 GOSUE S90 

530 PRINT C? " EXCEEDING '' ? UJ "IS" ? 1-ES 

540 GOTO 390 

550 READ U1jU£ 

5fcy IF UK us THEN 600 

570 LET i4=Ul 

580 LET U1=U£ 

590 LET U£=W 

600 LET Wl=FNWi;Ulj 

610 LET y£=FNWfU£) 

6£0 IF D=0 THEN 650 

630 LET Wl=WlftFNTrWlJ 

640 LET W£=W£»;FNTi:W£1 

650 LET E1=N1 

660 GOSUE 890 

670 LET Q1=B£ 

680 LET Ei=W£ 

690 GOSUE 890 

7 00 PR I NT C 5 " BETWEEN " ? U 1 ? " AND " 5 U£ J " I S " ? E£-Q 1 

710 GOTO 390 

7£0 READ P 

730 GOSUE 1330 

740 LET Hl=l-p 

750 GOSUE 1030 

760 IF B=0 THEN 780 

770 LET H£=A£*^FNZ(fi£l 

780 PRINT C;- EXCEEDING "i FNQ fflfi) ? " IS" ? P 

790 GOTO 390 

800 READ P 

810 GOSUE 1330 

8£0 LET A1=0.5*^C1+PJ 

830 GOSUE 1030 

840 IF D=0 THEN 86© 

850 LET A£=A£»^FNZ ( A£ ) 

860 PRINT CJ" BETWEEN "? FNQ C-AS) 5 "AND " J ENQiAEl J "IS" 5 P 

£!70 GOTu 390 

880 REM FIND PROS FOR A GIUEN NORMAL DEUIATE 

890 IF EK-4.5 THEN lOOO 

900 IF EK0 THEN 970 

910 IF EK4.5 THEN 940 

9£y LET E£=l 

93ti GOTO 1010 

940 GOSUE ir£0 

950 LET E£=Q 

96ti GOTO leUO 
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970 GOSUE 1 1£0 
930 LET E£=l-Q 
990 GOTO iaie 

1009 LET B£=0 

1010 RETURN 

1020 REM FIMD MORMFiL DEUIfiTE FOR fl GIUEN PROE 

1030 IF Rl>0.5 THEN 1080 

1040 LET Hl=l-Hl 

1050 GOSUE 1190 

1060 LET H£=-Q 

1070 GOTO 1100 

10S0 GOSUE 1190 

1090 LET H£=Q 

1100 RETURN 

1110 REM INTERPOLfiTE FOR tiORMRL PROBRBIL.ITY 

11£0 LET Z=10^flESlBl) 

1130 LET K=INT(Z) 

1140 LET D1=Z"K 

1 150 LET Q=XCK+1 J+Dl»^FNIiiK+£) + fE1^CDi-l J /^^l^fFNDfK+Sj-FNDfK+l ) ) 

1160 LET Q=iE-55«IHTC5E--l + lE~£«QJ 

1170 RETURN 

1180 REM REUERSE INTERROLRTE FOR NORMRL DEUIflTE 

1190 LET Z=1E7S^H1 

1£00 FOR I = 1 TO 4b 

1£10 IF ZOUIJ THEN 1£30 

1££0 NEIKT I 

1£38 LET Dl = FND(I+ll 

1£40 LET El = FND!:i+£) 

1£50 LET D£=El~Iil 

1£60 LET D3 = END (1+3) - El - D£ 

1£70 LET U = iZ-Xil] ) ^' Dl 

1£S0 LET y=FNEiFNE(U)i 

1£90 LET Q=0.1^«fQ+I-l) 

1300 RETURN 

1310 PRINT C?" MUST EE SPECIFIED IN RANGE ©. 006085 TO 0.999995" 

13£0 GOTO 390 

1330 IF PM-5E-6 THEN 1310 

1340 IF P<5E-6 THEN 131© 

1350 RETURN 

1351 STOP 
1360 PRINT 

1370 PR I NT "THESE RRE INSTRUCTIONS FOR USING THE PROGRAM 
1380PRINT" IT PERFORMS SEUERflL TYRES OF CRLCULRTIONS FOR THE" 
1390 PR I NT "NORMAL AND STUDENT 'S-T EISTRIBUTIONS. GIUEN ONE- OR" 
1400 PR I NT "TWO-TAILED PROEREILITIESj IT WILL PRODUCE THE CORRES-" 
1410 PRINT"PONDING LIMITS? GIUEN fi UfiRIRTE OR A SET OF LIMITS? IT" 
14£0 PR INT" WILL PRODUCE THE COR:RESPONDING PROBRE I L ITI ES . DATA IS" 
1430 PR I NT "ENTERED AS FOLLOWS s " 
1440 PRINT 

1450 PRINT" 100 BATH DF? MEAN? SIGMA? (BLOCKIJ? IBLOCKE) 5 . . . „ . " 
1460 PRINT 



518 



1 470 
1 480 
1 490 



j'dO 

nB 

>3ti 
540 

>50 

1570 
1571 

1573 
1574 
1 575 
1576 
1573 
1579 
1 530 
1581 
1583 
1 583 
1 6 £10 

1 700 

9999ENII 



PRIMT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
STOP 



'•WHERE HP IS DEGREES OF FREEBON i SETTING r!F=ZERn SIGNFiLS" 
"NORMFlL DISTRIBUTION! J MERN FlND SIGMFl ARE THE NEflN RND" 
"STRNDHRP DEUIflTION OF THE DISTRIBUTION? RND THE DRTfl" 
"BLOCKS Mfir BE HNY MIXTURE OF THE FOUR TYPES SHOWN EELOHs " 

BLOCK! INPUT) OUTPUT PRODUCED" 

IjU PROE OF X EXCEEDING THE UflLUE U" 

EjLjU PROE OF X INSIDE LIMITS L AND U" 

3?P UflLUE IJHICH IS EXCEEDED WITH PROE P" 

4!.P LIMITS CONTRINING X WITH PROE P" 

" FOR EXRNPLEj THE LINE OF DRTfl SHOWN BELOW WOULD PRODUCE" 
"flS OUTPUT THE PROEflBILITY OF fl rCiRNflLLY DISTRUBUTED" 
"UflRlHBLE WITH MEflH 109 flHD STRrHDflRD DEUIflTION 10 BEING" 
"IN THE RANGE 95-105? AND ALSO THE UALUE OF THE UARIRELE" 
"THAT WILL BE EXCEEDED ONLY £.5 PERCENT OF THE TIMES" 

" 1 00 DATA £i } 1 fiti ? £ ? 95 ? 1 05 ? 3 ? . ei£5 " 



"NOTE THAT DATA FOR ADDITIONAL CASES MAY BE CONTINUED" 
"ON LINES 101 "199 AS NEEDED," 
"END OF INSTRUCTIONS 
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1 -uis 1 Ki Bin J L!r 



100 liH'rFl 13? 1550 

101 DFiTF! i60!::i00J 



!-,i.;j!.:;i|.J , 1 H 



1 r tlUtiti 3 1 ? 1 



1 , 14-ii;-!plPi,:::', l n::.f:j 



Rur-i 



I:hlL.CUL .i"iT I OMS F"UF' f i !i(,iF:i'lFil I) I F;TF' I Ti' i 1" I Cii' 



j-:i Mi: Cjii ni:: 



F r55';:i00 iHriD Fl SlGMFi LiF 



i--.i--ll-::n-::l 



CFlSE THE PROBFiEI! ITY OF' Fi UhRThTE-e 



EI-ICEEDIMi:;, 

E>^;CEEIiiriG 

E^^CEEIilMG 

'BETWEEN 

EXCEE'DIMG 

BETlJEtri 



rp'gyi/jQ IS 0,00b£'i 

150000 FiMTi 160000 IS 0.5': 

150953 IS 0.75 
150053 FiMIi 159047 IS 0=5 



EXFiMPLE #2 



100 IiFlTFi 17? 03 1 



CFlLCULFiTIONS FiJR R STLHiEriT'S T-B I SIR I BUT I OF 

HfiuifiG H riE:Rri OF' firici n sugmh of i 

HMD HFiFiirir:; 17 BETilvEIES OF FF^'EEDOFE 

CFiSE TFiF' PROBhBILIT't' OF H UhPIRTEs 
1 EXCEED IMG 2,108943 IS O.OSS 
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UNPAIRED I 

DESCRIPTION 

This program compares various statistical quantities between two groups of 
unpaired data. These two groups may have unequal variances. 



i3Wfam.ifeiflilii.Vii?g. 

Again users of this program will be individuals who analyze data, regardless 
of the source. 



INSTRUCTIONS 

Enter the data for group one (1) starting in line 900 and enter the corres- 
ponding data for group two (2), starting in line 950, before program execu- 
tion. For additional information list the program. 



LIMITATIONS 

This program should store and execute in 3K Bytes of memory in most computer 
systems . 
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uri!- 



20 PEM *:»;s;nrscRIPTIOris COMPUTES THE MEANS? UflRIflNCES? flMD T-RfiTIO 

30 REM FOR TWO GROUPS OF UNPfilREB DflTfl. THIS PROGRflM fiSSUMES 

^iti REM THAT THE GROUPS MAY HAUE UNEQUAL OARIANCES. 

^If-i pr-j-.-| ffiffiwiHRTRUCTIONS FOR USEs PUT DflTR IN EI HE 990 fiND FOLLOWING 

60 REN MAKE SURE THE DATA LINE NUMBERS DO NOT EXCEEB 998. 

7PJ ppf.-i r-f.4j-, -[-|_j£- FIRST SERIES OF DATA WITH 999999? AND THEN 

80 REN TYPE IN THE SECOND SERIES? AGAIN ENDING WITH 999999. 

9 D I M S C 1 1 ? Z ( 1 3 ? N ( 1 ) ? M i 1 B ) ? U i i 6 ) ? D C 1 1 

1001 LET P = 1 

110 LET S = 

1 c'U I-!... ! oc — kj 

130 LET N = 

140 READ K 

1 '^0 IF !■■■! = 999999 THETi £'lti 

160 LET S = S - K 

170 LET SS = S£: + >^^K 

180 LET N = N +■ 1 

190 GO TO 140 

£19 LET Si:P) = S 

££0 LET Zip) = S£ 

£30 LET Nrpj = N 

£40 IF P=£ THEN £89 

£50 LET P = £ 

£60 GO TO 110 

£70 REM NEy WE PRINT THE ANSWERS 

p ;r;(Ti pp I h^T jjl^B I 7 ) ; " GROUP " ? TAB f £ 1 ) ? " NUMBER " TAB ( 38 ) ? " MEAN " ? 

£ 90 PR I NT TAB f 49 ) ? " U AR I ANCE " ? TAB ( 63 3 ? " STB . DEU . " 

300 PRINT 

310 FOR 1=1 SU £ 

3£0 LET Mil) = SCD^^-NCI! 

339 LET Mill = indl^Zd) ~ Sf I) 5ss( ll 1 y-t-i ( I ) / (NC I ) - 1) 

34ki LET BCD = SQRfUa)! 

350 PRINT I?NCD ?Mi 13 sUfl) ?D( I) 

360 NEftT I 

370 LET Q = U(13 .:^- N ( 1 3 + ■Jid) --' N(S3 

380 LET W = SQR(Q3 

390 390 LET R = MC13 - M(£3 

400 LET K = Ufl3 .-■■ NCI 3 .-- Q 

410 LET D = 1--1 K^K>fNa3 - 13 +• il-K3^( 1-K3 ^f N (£3 - 13 3 

4£0 PRINT 

4 30 PR I NT " MEAN D I FF . " ? " UAR . D I FF „ " ? " STB . BEU . BIFF." 

440 PRINT R? Q? W 

450 PRINT 
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4fc@ PRINT "T RATIO"? P/W ? "Ori"J U? "DEGREES OF FREEDOM." 

470 STOP 

480 PRINT RjQsW 

^■90 PRINT 

500 PRINT "T RATIO", Ry|J? "ON"^ Hfi 1 SH fp"! -S? "DEGREES OF FREELnn. " 

510 STOP 

9999 END 



UrlPfilRFiJ 



900 iJfiTFi 73? 43 
9 i Pi ni-iTf"! '5 1 ? ■-) 1 



=1 i ■> <i 






■' !i "'''■.:j ? '"''c'. ? '""! i' ? '■"! '■! ? '""i i"' ? '-['ii ? i:;'H ? '::''r:''::'b''"^b' 



Ri,jri 



riUMBER MEFiri lifiRIFlMCE 



^ I'-i- . c: 

46, f 



1 1 fc-n 03F;F. 



'7 1 !■--.!■ 



lEFii! IJIFF 



JFiR. DIFF. 
16.67048 



STTi. DEF', DIFF 
■H = 088949 



T RATIO 



ON 



l}Ff:PF£ 



Krt.JJ! 
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VARIANCE li 

DESCRIPTION 

This program performs a one way analysis of variances with equal sample sizes, 
There may be several different samples as long as each sample has the same 
number of data points. 



U S E R.S 

Metal urgists, experimenters, and persons who would like to compare system op- 
erating characteristics could all use this program effectively. In the example 
given, the program must analyze the effects of an impurity on the tensile pro- 
perties of three sample alloys. 



INSTRUCTIONS 

Starting in line 100 enter the data in Data Statements before the program is 
run. Use the following format for entering the data: 

100 DATA M,N 

200 DATA X11,X12,X13, 

201 DATA X21,X22,X23, 

and so forth until all the samples are entered 
where 

M = The number of samples 

H = The number of data per sample (all samples must be the same size) 
XIJ = The sample data (the data may be contained on additional lines 
if necessary) 

List Variance 1 for additional information. 



LIMITATIONS 

In line 27 there is a DEF FND statement. This program will require 3K Bytes 
of memory for storage and will execute in 4K Bytes. 
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!.jf|R] ;Pjf]rF 



11 

1 3 



15 

17 

19 
PI 



75yyj63 

9198433 



999yyfc' 
: (■ 49 1 



HHTp 

bhth 

'HhTR 

drth 

BRTfl 
£3 DflTfi 
£5 DIM 
87 DEIF FMlJiU) 
100 GO TO 630 
30ti FOR 1 = 1 
305 REhD K i I i 
310 NEXT I 
380 DIM UC80? 
385 RERD t-hbl 

FOR I =07080 

LETT r I ) =0 

NEKTI 

LET G=0 

LET 

LET 

FOR 

FOR 



3000000? 5398878? 5798597, 61791 14 
? 8 1 59399 ? 84 1 3447 ? 



teyo": 






J 78!;! 1 446 

? 9331988 

J 9860966 
9974449? 99£!l348 
9997674 ? 99984£i9 ? 999£!98£ 
999991 



>434': 



? 9898759 ? 99 1 8085 ? 

? 99865£il ? 9990384? 

999877- 

J 9999946? 9999966? 



•817? 69146c 



8643339 


. 8849 


303? 


9640697 


.9718 


334? 


9937903 


- 9953 


388? 


9993189 


.9995166? 


9999519 


. 9999683 ? 


9999979 


. 9999987 ? 



7857469 
903 1 995 
9778499 
9965330 
9996fc-31 
9999793 

QQQQQQp 



= KlU+l) - KiU] 



0) ? T (80) 



:130 
:!40 

•:5@ 



36U 

365 
370 



R=0 

W=0 

J=l 



TO 
TO 



RERD UiI?J) 

375 LET T(I)=TCIi+UCI? J) 

380 LET R=R+Ui;i?JJt8 

385 NErtT J 

390 LET G=G+TiI) 

395 LET W=W+T(lJt8 

400 ne:---;t I 

405 LET R=(W--rGt81.-tn.--(N»;(ri-11) 

410 LET E=(R-W.'t-!J^-i:M»;(N-l)i 

415 LET F=R---E 

480 LET Fi=Ft! 1.--3) 

485 LET ri=8.--(9*^i:m-i :n 

430 LET H8=8.-^i;9KM*^(N-l ! 3 

4 35 LET B 1 = C F 1 s i 1 -fl8 1 + ( fl 1 - 1 1 ) .•-SQR f h8"«F 1 1 8+R 1 ) 

440 GOSUE 535 

445 PRINT 

450 PRIMT "H M fl L Y S I S F U fl R I R i\ 

455 PRIMT ■' "?M?"SflMPLES OF SIZE ";N 



F' 
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460 PRINT 

465 PRINT "SfiMPLE"? "SRMPLE TOTAL"? "SflriPLE MERN" 

470 PRINT 

475 FOR 1=1 TO M 

488 PRINT IjTCIl5Ti:ii.--N 

485 ne:^:t I 

490 PRINT 

495 PRINT "MEFiN SQUhRE (BETWEEN SfiMPLES) = "?H 
500 PRINT "MEflN SQLlHRE (WITHIN SAMPLES 3 = '=?B 
505 PRINT "CRLCULRTED (JALUE OF F-RRTIO = "?F 
510 PRINT "CORRESPONDING NORMAL DEUIRTE = "?E1 
515 PRINT 

5£0 PRINT " THE PROEAEILITY OF AN F-RATIO THIS LARGE" 
585 PRINT " OCCURRING BY CHANCE ALONE IS";i-E£ 
530 STOP 

535 IF El<~4.5 THEN 590 
540 IF EK0 THEN 575 
545 IF EK4.5 THEN 568 
550 LET B8=l 
RETURN 



I. ). t 



56ti GOSUE 600 

565 LET E£=Q 

570 RETURN 

575 GuSUE 600 

580 LET B£=l-Q 

585 RETURN 

590 LET E£=0 

595 RETURN 

600 LET Z=10^AES(Ei3 

605 LET K=INT(Z) 

610 LET IJ1=Z-K 

615 LET Q=:K (K+1 1 +Dl*=FNIi (K+1 3 + (Dl^ f Dl~l ) .--£3 »^ (FNE (K+£3 -END (K+1 3 3 

6£0 LET Q=1E-3*=INT(,5+1E-4SSQ3 

6£5 RETURN 

630 PRINT 

635 PRINT "THIS PROGRAM WILL PERFORM A ONE-WAY ANALYSIS OF" 

640 PRINT "UARIANCE WITH EQUAL SAMPLE SIZES. TO USE? TYPE: " 

645 PRINT 

650 PRINT " 100 DATA M?N" 

655 PRINT " £00 DATA XI 1 jXIEj X13j . . . ? XIN" 

660 PRINT " £01 DATA :-:£!? XEE? X£3j ...? K£N" 

665 PRINT " ETC UNTIL" 

670 PRINT " PK^ DATA KMl ?KM£?XM3j . . ■ ? XMN" 

675 PRINT 

680 PRINT "WHERE M IS THE NUMBER OF SAMPLES? N IS THE COMMON" 

685 PRINT "SAMPLE SIZE? AND THE XIJ ARE THE OESERURTIONS. " 

690 END 
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iJFlRlHriCF 1 



1 i;ii;i JjfiT'H 3 
■:;;':i1 IJRT'R 1 



:, 4 J 1 c' ::i= c'? Ic-l '-■'., '4 3 1 



Fii'lRi YSIs LiF" UFlRIFir-lCt 

3 ■BRiiPUFS i:)F' f;ize: 4 

SFlMBI E SFIMPLJ: TRT'FiL SHRF1 E' 11F:Firi 



677 . 
7 c' 6 . 



URl, 



•! SQURF;E tBETl'-IEEF! SRMPi E?:-;)^^ I'dR.i^ 

I SQURPE iRITHIii sRMPLES) = 5y. If 

jULRTEiJ FiRi UE: op E-F:RT'IiJ = 3. 

RESPORDIHG NuRilRL r!E!JlHTE = 1. 



1 4-'- 
7F.I- 



TRE PROBRBIL ITt RE RR F-PRTIR T 



!'iR!";RPRTRr 



L'-HfiiiCr' FlL JJRE^ 
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VARIANCE li 

P E SCRJPI ION 

This program calculates the analysis of a variance table for a one-way design. 
The design may be completely randomized. The input data must be in the form 
of a table where different events and their observations are listed. 



Vf# »J* 1-ml I 1 V# 

Statisticians will find the most use for this program. 



INSTRUCTION S 

Before the program is run the problem data must be entered, starting in line 
900. For a complete set of instructions for program operation list the pro- 
gram. After the data has been entered type RUN. 



LIMITATIONS 

Line 91 contains a Restore statement and line 115 contains a MAT Read state- 
ment. In the DIM statement in line 100, provision is made for a two dimen- 
sional array. The source code for this program requires 3K Bytes of memory 
for program storage and it will require 6K Bytes of memory for storage and 
execution. 
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..JFiRIFlMCF: 



10 

£0 
40 
50 
60 
70 
£10 
81 



90 
91 
9£ 
93 
94 ■ 

1 00 

110 

115 
1£:0 
1 30 
140 
1 50 
160 
170 
180 
190 
£0k1 
£10 
££0 
£30 
£40 
£50 
£60 
£70 
£80 
£90 

300 

310 
3£0 

3;'!0 



REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

Eflli 

ESTORE 

F 00 < 

RIHT 

TOP 

DIM 

REfll! 



liESCRIPTIOHs COMPUTES THE RNfiLYSIS OF UhRIhNCE TABLE 
FOR H OriE-WflY COMPLETELY 
INSTRUCT I ONSs ENTER "DHTfl IM 
ENTER IJHTH IN THE FOLLOWING 



LINE 900 AND 
ORDER: 



FOLLOWING 



4) 

IF 
IF 
00 



fl? THE TOTRL NUMBER OF OBSERUFlTlONS 

t'h THE NUMBER OF DIFFERENT TREATMENTS 

N(l) 3 „ . „ jNfMJ ? WHERE NCJ) IS THE NUMBER OF OESERUATIONS 

ir-i TREATMENT J 

AND FINALLY? THE OBSERUATIONS THEMSELUES? FIRST 

FOR TREATMENT 1? THEN TREATMENT £? ETC. 

ANY Ni:.J) > £0? CHANGE THE DIMS IN LINE lOO. 

M > 10? CHANGE THE DIMS IN LINE lOO. 



<> 999999 THEN 100 
"LIST LINES 10 TO 8b FOR 



INSTRUCTIONS' 



f £0 ? 1 ) 3 N i. 1 ) ? T ( 1 ) ? S C 1 £i ) 

A J M 



1HT READ N(M) 

M 
NC. 



1.1 



Ti 

l! 



1 TO 
1 TO 
= Tf 



FOR J = 1 
FOR I = 1 
READ Kili 
MEKT I 
NE^T J 
FOR J = 1 
FOR I = 
LET TfJ) 
LET S(J) = E 
NEKT I 

LET U=U+TC._n 
LET R=R+SiJ 
LET U=UH-Ti;j 
NEXT J 
LET C 
LET W 
LET E 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



n 



M 

NC 



I J I 



+ 
+ 



ilj Jj 

f I 5 J) *-XCI J 



i^^Trji •■■Ni: J) 



= U»^U.--A 

= u - c 

= R - U 
"ANOUA TABLES" 

" ITEM" j TAB i:£51 ? "SS" 5 TAB (40) ? "DF" ? TAB C- 

"GRAND TOTAL" !R? A 



'MS' 
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340 PRINT "GRflND MERN'SCjI 

350 PRINT "TREATMENTS"? i-h M-l? M--fri-l) 

3 60 PR I NT " ERROR " ? E ? fl-M ? E--" i fl-M ) 

370 PRINT 

380 PRINT 

390 LET E = f W ■■■ i M-- 1 ) ) ■••■■ i" E---- ( fi-pi 1 ) 

400 PRINT "E - ■'E"nN"M-l"flNri"fl-r-1"IiEGREES OF FREEnori. 

402 LET G=E 

403 LET H=H-ri 

404 LET r1=M-i 



405 


GOSUB 800 


410 


STOP 


30y 


REM 


30P 


LET P=l 


303 


IF G<i THEN 


304 


LET H=^! 


305 


LET B=N 


506 


LET F=G 


507 


GO TO 811 


30ft 


LET fi=N 



-;m:-! 



809 LET B=M 

10 LET F=l.--G 

11 LET fil =£.-•■ (ys^Fi) 
81£ LET E 1 =£.-■■ (9*^B) 

13 LET Z=flESi: (1 "El :i*;Ft(. 333333) -l+Rl) 

8 1 4 LET Z=Z---SQR ( E 1 ^F t C . 666667 3 +fl 1 ) 

815 IF B<4 THEN 819 

il6 LET P= ( 1+Z:« ( . 19bS54+Z'«-: ( . 1 15194+Z»« C , 000344+Zse„ 0195"E:7:i 1 1 1 14 
:17 LET P=,5--P 
318 GO TO 8£1 

19 LET Z=ZSfl + .©8^Zt4.--Bt33 

£0 GO TO 816 
8£1 IF G<1 THEN 8£3 
S£c: yu lu 8£5 
:!£3 LET P=l-P 
3 £4 GO TO 8£5 
3£5 PRINT 

:i£6 LET P = INT(lE5»;p + ,5J^-1E5 

5£7 PRINT "EXACT PROB. OF F="?G!'n=nTH i "M?"? "N? " "i B.E. IS "?P 
3 £8 PRINT 
3 £9 RETURN 
jggy END 
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XY: 

DESCRIPTION 

This plotting program plots single valued functions in X on a standard tele- 
type. The X axis is the vertical axis. The plots that are drawn are linear 
plots. Log plots may be done by setting Y = LOG(f(X)) but the axis will still 
indicate a linear grid. 



USERS 

Anyone who would like to plot functions whether for business or pleasure will 
find this program easy to use. 



I NSTR UCTI ONS 

The function that is to be plotted will have to be entered in line 2030 before 
the program is run. After the function has been entered type RUN. For addition- 
al information list the program. 



L I M IT A TI O NS 

This program should execute without incident in most systems that have 3K Bytes 
of available memory space. 
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LL I J=y 
-039 GO 
::@45 IF J=0 THEN £990 
::060 RETURN 
?075 PRINT " 



£;090 PRINT 

£105 PRINT "WHAT RRE YMINs YNfiX? I^MINsKMhK? DELX 

£120 INPUT Q0?Q1 jQe?Q3?Q4 

£ 1 35 LET Q5= i Q 1 -Q0 ) ■■■•'bR 

£150 LET Q6=0 

£165 LET J=£ 

c'lSy FOR :K = Q£ TiJ Q3 STEP Q4 

£195 GOSUB £030 

££10 IF Q6 = THEN £600 

£££5 IF Q6 = £0 THEN ££70 

££40 PRINT " . "; 

££55 GOTO £309 

££70 PRINT " - ■■; 

££S5 LET Q6 = 10 

£300 IF T > Ql THEN £555 

£315 IF V < Q0 THEN £555 

£330 LET Q7 = Q0 + £*^Q5 

£345 LET Z=Q7+0,5»^Q5 

£360 IF 2<Y THEN £510 

£375 LET Qb = Q6 ■+- 1 

£390 IF Z-Y>=£s^Q5 THEN £480 

£405 IF Z-Y>=Q5 THEN £458 

£4£0 PRINT ■' +■' 

£435 GOTO £698 

£450 PRINT " +" 

£465 GOTO £699 

£480 PRINT " + ■■ 

£495 GOTO £699 

£=il9 LET Q7 = Q7 + 3*^Q5 

£5£5 PRINT " "J 
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C ■-•■ ( >y 
c'. --.' 0\I* 

£600 

£:bl5 
£630 

£660 

£675 
£690 

£ i'' £ld 



C. I' t'-J 
£780 

£795 
£81© 
£y£s 
£840 

CO -_!■_' 

£870 

£885 
£900 
£915 
£930 
£945 
£960 
c. y i ■_■ 
£990 
3005 



GOTO £34b 

PRINT "OFF scale: CX,", 

LET Q6 = Q6 + 1 

GOTO £690 

PRINT 

pl^llvIT "FOR Ki I OP = 

PRINT "FOR Ys LEFT = 

PRINT 

PP T NT " T ^ 

GOTO P£70 

NEXT K 

PRINT 

PRINT 

INPUT 

IF QS 

IF Q8 

PRINT 

GOTO t 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

END 



iiJH 



fflTTOM 
RIGHT 



ICii 



ir-iCREMENT = 
INCREMENT = 



"TVpF '0' TO STOP OR -1- TO CHANGE LIMITS. WHICH"! 

Q8 

= THEN 3005 

= 1 THEN £090 

;705 

THIS PROGRAM WILL PLOT SINGLE-UALUED FUNCTIONS OF 
WITH K ON THE UERTIChL HXIS„ TO USEs TYPEs " 



2(Z!S0 LET 
RUN" 



(THE FUNCTION TO BE PLOTTED) " 



DURING RUNNING? THE PROGRAM WILL ASK FOR YMIN AND" 
YMAX (THE LIMITS ON THE HORIZONTAL Y-AXIS) ? FOR" 
XMIN AND XMAX (THE LIMITS ON THE UERTICAL X-AXIS)?' 
AND FOR DELXs THE INCREMENT TO BE USED ALONG THE" 
X-AXIS. note: LINES 70-99 OF THE PROGRAM MAY BE" 
USED AS DESIRED TO EXPRESS COMPLICATED FUNCTIONS." 
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*2030 Y=EXPC-(X«2>) 

*RUN 



WHAT ARE yMIN*YMAX*XMIN.XMAX*Da.X TOi. I. -8* 2. . 1 

F0R X8 T0P = -S B0TT0M = 2 INCREMENT = 0.1 

F0R Y8 LEFT = RI ©IT = I INCREMENT " 0.0166667 

lfl«ofte»»«Bla9Bft»avoaI«eoe«9Baelaao»eo»«eleeoafteoaoloooseooeeI 
* 



+ 



+ 

* 

+ 



* 

* 

* 



+ 
+ 
* 

* 



+ 



TYPE 'O* T0 ST0P 0R 'I' T0 CHANGE LIMITS. WHICH ?0 



READY 
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APPENDIX A 



BAS I C 

STATEMENT 

DEF I NITI ONS 



SEE APPENDIX B FOR CONVERSION ALGORITHMS FOR OTHER BASICS 
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STATEMENT DEFINITION 

Each BASIC statement consists of the following elements arranged in the 
order given; 

Statement (or line) number - by its ascending order, indicates the 
processing sequence of the statement. 

BASIC word - specifies the computer operation to be performed. 

Parameters - in most statements are variables, expressions, and 
numbers u¥ed in or to direct the operation performed by the 
statement. 



MATHEMATICAL NOTATION AND OPERATIONS WITHIN A STATEMENT 



Variable Representation 



In the BASIC language, a variable can be represented by 



1. 
2. 
3. 



a letter 

a letter and a digit 



either of the above, followed by the character S 



For example A,Z,K6, and X may represent variables, but AR, Z12, 6K, and 
22 can not. The inadvertent use of the digit for the letter O (and 
vice versa) in a variable will cause errors in a program; use of the 
letter or the digit in variable representation is not recommended. 
The user may find choice of a letter as a mnemonic for a variable 
helpful; for example, P for price, S for sales, and N for numbers. 

Variables with $'s are restricted to the assignment of strings 
(alphanumeric data) and are referred to as "string variables", in 
contrast to variables without the $ that are referred to as "numeric 
variables". Numeric variables, when used as a starting point in 
calculations (e.g., for a counter), have an initial value of zero. 
String variables have an initial value of zero when used for character 
count. 

A BASIC variable is assigned a value, during the execution of a program, 
from the numbers given in a related LET, FOR, READ, or INPUT statement. 
It retains this value during the processing, unless it is reassigned a 
new value by another of these statements. 
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List and Table Variables 

Subscripted variables are represented in BASIC as 

variable name (subscript) 
or 
variable name (subscript, subscript) 

where the subscript can be an integer, variable, or an arithmetic 

expression such as (1+K) or (A(3,7) ,B-C) . The subscript must always be 

enclosed by parentheses. Subscript values should begin at 1 (i.e., not 
0) . 

A list variable designates an element of a one-dimensional array that 
can be represented by such as P(15), P(H) or L(20). Before a list 
variable can be used in any statement, the maximum value of its 
subscript (i.e., size of list) must be specified in a DIM statement; 
otherwise a list of 10 or less is implied. 

A table variable designates an element of a two-dimensional array that 
can be represented by such as &(15,17) or T(20,30). Before a table 
variable can be referenced in any statement, the maximum, value of its 
subscripts must be specified in a DIM statement; otherwise, subscripts 
of 10 or less are implied. 



Use of Numb e rs 

A number may be positive or negative, may contain up to nine digits, and 
must be in decimal form. BASIC would accept 0.01, 2, -3.675, 123456789, 
-.987654321, and 483.4156 as numbers, but would reject 14/3 (this is an 
expression) or 32,437 (as representing 32437). Numbers are stored as 
single-precision floating-point values. 

A number can also be expressed in "E notation", which is equivalent to 
expressing it as a power of 10. For example, in E notation, 

0.00123456789 f may be^ . 123456789E-2 or 12 . 3456789E-4 
1967 {expressed \ 1.967E3 or 19.67E2 



10,000,000 i^ as J 1E7 or 100E5 

The decimal point can be positioned anywhere within the number as long 
as the integer following the E indicates its correct position. Note that 
E and an exponent alone cannot represent a number. For example, E7 
cannot be written as a number to represent 10,000,000; it must be 
written as 1E7 to indicate 1 multiplied by 10 to the 7th power. 
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Arithmetic Operations 

Five arithmetic operations can be performed by BASIC. Each of the 
following syiTinols represents an arithmetic operation that can be 
included in an expression. 



Operator sy mbol 

+ 

* 

/ 

t or ** 



denotes 

addition 

subtraction 

multiplication 

division 

raise to a power 



as ill ustrated by 



A 


+ 


B 


A 


- 


B 


A 


* 


B 


A 


/ 


B 


A 


t 


B 



B or A 



Relationa l S ymbols 



Six relational tests can be made with BASIC. Symbols representing these 
relationships can be used in statements when comparisons are required. 
The symbols and illustration of their use follow. 



Relational symbol 


is 


denotes 
equal to 




as 


illustrc 


itec 


i by 




A = B 






< 


xs 


less than 






A < B 






<= or = < 


is 


less than or 
equal to 






A<= B 


or 


A =< B 


> 


IS 


greater than 






A > B 






>= or = > 


is 


greater than 
equal to 


or 




A >= B 


or 


A = > B 


< > or > < 


is 


not equal to 






A< > B 


or 


A > < B 



Function 

SIN(X) 
COS (X) 
TAN{X) 
COT{X) 
ATN(X) 
EXP(X) 
LOG(X) 
CLG(X) 
ABS(X) 
SQR(X) 



means find the 

sine of X 
cosine of X 
tangent of X 
cotangent of X 
arctangent of X 
e to the power X 
natural logarithm of X 
common logarithm of X 
absolute value of X 
square root of X 



In these definitions, the letter X represents an expression, which, for 
the trigonometric functions, implies an angle measured in radians. If 
the value of X in LOG(X), CLG(X), or SQR(X) is negative, then the 
negative sign is ignored, the positive value is used, and an error 
message is printed. 
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Four additional mathematical functions are included in BASIC. 

Function means 

INT(X) truncate X 

RND(X) produce a random number 

SGN{X) sign determination 

DET(X) provide determinant of last matrix inverted 



In addition, the user may employ the DBF statement to define one or more 
of his own functions. 



Miscellaneous Functions 

A set of miscellaneous functions is available for use to provide a 
variety of non-mathematical operations. These are as follows: 

Function means ob tain 

TIM{X) elapsed processor time 

CLK$ time of day 

DAT? calendar date 

NUM(X) count of matrix data elements 

SST(X$,Y,Z) selected characters of a string (substring) 

TAB(X) character print position 

SPC(X) space print position 

LEN(X$) number of characters in string 

LIN{X) last line number encountered in 
reading/writing file 

BASIC WORDS 

BASIC words are short, distinctive, easily recognizable words that are 
either valid words or abbreviations of words. When formatted into a 
statement, a word becomes an explicit instruction to the computer to 
perform some operation. Some statements can be made by the use of a 
BASIC word alone; other statements require other information in addition 
to the BASIC word. 

BASIC words "may be grouped by type of statements in which they occur. 
The words and their associated functional statement categories are as 
follows: 

Arithmetic Statements 

BASIC Word When formatted into a statement 

DEE - defines a repeatedly used function 

LET - requests a computation or manipulation upon an 
arithmetic variable 

MAT - requests a computation or manipulation upon a matrix 
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Specification Statements 

BASIC WORD When formatted into a statement 

CHANGE - converts string characters to numerical code or vice 
versa 

DATA - specifies numeric values for variables listed in a READ 
statement 



DIM 



reserves space for list or table 



Input/Output Statements 

BASIC Word When formatted into a statement 



INPUT 



PRINT 



PRINT 
USING 
READ 



RESTORE 



- delays input of values to variables until program is in 
execution; program will request input of data by 
terminal user or a user's file when statentent is 
executed 

- prints computed results; prints text 

- prints computed results and text 

- skips lines 

- formats output data 



formats output line 

reads values from a DATA statement or user's file and 

assigns them to designated variables 

restores previously processed blocks of input data from 
DATA statements 



Loop and Subroutine Statements 

BASIC Word When formatted into a statement 

CALL - directs processing sequence to a subroutine previously 

saved 

FOR - is first statement of a loop and sets conditions of loop 

NEXT - is last statement of loop 

GOSUB - directs processing sequence to a subroutine 

RETURN - returns processing sequence from a subroutine 

Logic Statements 

BASIC Word When formatted into a state ment 

GOTO - unconditionally transfers the processing sequence to a 
designated statement 

IF- THEN 

or 

IF GOTO- conditionally transfers the processing sequence to a 

designated statement 
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ON THEN 

or 



ON GOTO- conditionally transfers the processing sequence to 

designated statements 

STOP - stops the execution of the program 

END - indicates end of program 

Docuncntation Statement 

BASIC Word When formatted into a statement 

REM - inserts a remark into the statement sequence 



For all Matrices operations the subscripts are defined as follows: 



DIM A {3, 4) 
where 

3 = # of rows 

4 = # of columns 



ie: If the following data were input to the above A matrix it would 
be stored as: 

Input Data = 1,2,3,4,5,6,7,8,9,10,11,12 

Matrix 12 3 4 
5 6 7 8 
9 10 11 12 



Function ASC(X) 

Purpose- To provide the numeric value of a specified character or, for 
the case of non-printing characters, an abbreviation. 



Format : 



ASC / (character) I 
\ (abbreviation)J 



541 



Function SPC(X) 

Purpose: To insert spaces at indicated positions within an output 
line. 

Format: SPC{expression) ; <data to be printed > 



Function TAB(X) 

Purpose: To position data field at indicated character position within 
an output line. 



Function NUM(X) 

Purpose: To supply count of number of data elements in response to 
request from MAT INPUT statement. 

Format: NUM (any alphanumeric cliaracter) 



File read statements 

READ # file designator, input list 
INPUT # file designator, input list 



File write statements 

WRITE # file designator, output list 

PRINT # file designator, output list 

PRINT # file designator, USING statement number, output list 



Matrix input statements 

jMAT READ # file designator, matrix input list 
MAT INPUT # file designator, matrix input list 



Matrix output statements 

MAT WRITE # file designator, matrix output list 
MAT PRINT # file designator, matrix output list 



File manipulation statements 

SCRATCH # file designator 
RESTORE # file designator 
BACKSPACE # file designator 
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Function LEN(X$) 

Purpose: To determine the number of characters in a specified string 
variable. 

Format: LEN (string variable) 



Function VAL(S$) 

Purpose: To produce a numeric value corresponding to the value of a 
string represented by a string variable. 

Format: VAL (string variable) 



Function SST(X?,Y,Z) 

Purpose: To extract selected characters of a string. 

Format: SST (string variable, beginning character, number of 
characters) 



Function STR$(N) 

Purposes To produce a string corresponding to a value of a number 
represented by an expression. 

Format: STR$ (expression) 



Use of STR$ implies placement of the string right-justified 
in the smallest zone into which it will fit. Blanks will 
occupy the remaining character positions of the zone. 
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CHANGE 



The change statement may be used to convert 
equivalent numeric code or vice versa. 



string characters to 



The procass involves two lists, one numeric, the other a string 
variable. When converting numeric codes to a character string, the 
numeric list is to contain the valid numeric equivalent of a single 
character in each element. Given the desired number of items to 
convert, the CHANGi; command will perform the conversion and 
concatenate the resulting characters into the string variable. 

In changing from a character string, the command stores the related 
numeric code for each character into the elements of the numeric 
array. 



String concatenation is limited within one LET statement to two 
string variables or one string constant and one string variable. 

The statements 



*10 LET A$ = "JOHN DOE " 

*20 LET B$ = ""EMPLOYEE NUMBER 12 34 5" 

*30 LET C$ = A$ & B$ 

*40 PRINT C$ 



*10 LET A$ = "JOHN DOE " 

*20 LET C$ = A$ 6 "EMPLOYEE NUMBER 12345" 

*30 PRINT C$ 

when executed, will produce the printout 

JOHN DOE EMPLOYEE NUMBER 12345 
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